The Amazing 


DICK SMITH ELECTRONICS 



Personal Colour 
Computer 

y 

Omnibus 


Tim Hartnell 


The Amazing 

MBB 

ftyltd 

VZ300 

Omnibus 


Tim Hartnell 















ThE AMAZiNq 

\ZJOO 

OMNibus 


Tim HartneLL 


First publisbeei ir Australis by: 

Didt SEniih Management Pty. Ltd 
PO Box 321, 

North Ryde, NSW,2l]3 

Copyriglut (c) Tim Hartrell, 1986 

First printing 1984 

Didi Smith Caidogue Numbcr: X-7327 

Tbe progrems in ibis book havebeen incLuded forlheir instructiora! valut. Thty have been tcsicd wiih care but arc rwt 
guaraniccd ferary particular purpose. Whilst every care has been taken, tho piiblishcrs c-annet bq hcLd rcsponsjWe for any 
rurning mistakes wWch may OCCUT. 


ALL RIOHTS RESER VED 

No use whatsocvcr may be made of tfw codents of this voJuim — pmgrams ard/or tqat — cjtwpr for private study by ihe 
piiichaser of ihU vol urne, and for bricf cxcerpts for rcview ptirposes. Any orber third party use of materia! ia diis book cari 
cflly be mado after rccctvtrg the prior written permission of the Copyright hotder. 

Reprodusctran in any fonti or for any purpose is fofbdddjen. 

The companion valuincsin thds serica are Progntmniing The VZ300 r The Ciani Book of Gemes forthe VZ 300 and JTte 
Ainsiing VZ300 Omnibus, 

This book was prepared for Dick Smith Managemem Pty. Ltd. by Inledace Publicationi (AastmlinJ Pty, Ud, CheLsea 
Hpiia*, 34 Camp Strcch Chdsca, Vk. k 3196, Any qtieries regardirg ihq cortem* ofthe book should bc seni lo tbis address. 

%tocial thanks to Ihc slaff of Dick Smith Electronics in Frankston, Vidoria, for their ussi st a ree ir prepanng this boolc. 

Typcset by WetLset Pty, Ud„ Chdsea Heighus, Victoria, 


National Libra ry of Australia Card No>. 
& ISBN OW9772 3&0 




The author, Mclboumq-bom Tim HannelL 
first met Dick Smilh in Lendem in ihc ime 
seventies while Dick wason a Irip lo buy the 
heiieopter which he used for his rccoid* 
breilcing wcrtd sob flighl. 



The tw* kept in ioueh t and afler Ttm'j retum from the UK at thtend of 1 9B2, Dick called 
him ont day and asked him IO COrtie ap [0 Sydney 10 see a atw produc t which Dick Smitb 
Electronics had devetoped. U wa$ ihe VZ200. the fareronner of the VZ30Q, Tim w»s 
im piessad with the machine and its potential, and r&ng the editor of Austaaftui Persciti 
ContptWGrabotit ii. The editor dccidcd the launch of Une VZ200 wa* sufreeieotiv important 
lo change, al the lzsl minute, lt»e pmpd-setl cgvCr df the neat issue of the magarme. and 
replace it with a photogniph of VZ200. Tim h s review of the computer wa& the lead story 
in that issue. 


Tim and a cwpie of authors who hadi wgrked with. him prcviously on books publishcd by 
Tim f s company, Inlcrface Pubiicaliors. iher wrote three books on the VZ200, which were 
distributed exclusively through Dkk Smith outlels The feedback on tbose books was 
cxtremely positive, so it was dccided that Ihe VZ30O also deserved dcdigaisd books, such as 
ihc onc you ane reading mw. 

Tim HannelL originaily teft Australia in the middieof 1977 for the UK forwhatwas planned 
to be a Slx mon lh \ wOrking hoiiday. He finaJly stayed for ncarly sii ycsrs, and whnk jn 
Londoii foundcd hU company, Inlcrface Pobiicatiors, which now has officcs in London, 
Mclboumc and New York. Tim has written ftfty or so books (he says he doesnT kuow ihe 
exact number), ptedominately on eompuiers and telated subjecis, and they h&ve been 
Iranslated rnto eleyen Languagcs. 

Ahbough he now makcs bis horne in Meiboumc, hc travds baek to the USA and the UK iwo 
or three times each year to keep in leueli with devetopenen^ in ihe comptiier field. ' L lt geis 
harderio leaveeach time/' he said recendy. "Australia ]S really the onlycnunliyl ever want 
eo live in. And with dcveSopmcntE iikcthe V2300, it makes sense proiessionally, as well as 
persona l]y.‘' 


Contents 


Foreword .x 

Section One — Graphics and Sound Companion 

Pattem-Master 1 . . .. .....1 

Pattem-Master 2. ... ,, 2 

3D Printer Plotter... .... 2 

Sound Frequencies + . .-.. .4 

Motor Boat, FaUing Object, Attack.... 5 

The VZ Synthesizer ,. ......6 

Section Two — Exploring Artificial Intelligence 

Part One — Leamingand Reaaoning.....8 

The AI Debate, Feedback, How Do MacMnes Think? 

Part Two — A Program which Learns.. ..13 

TICTAC Board, Michie and Boxes, Samuel and the 
Checkerboard, Listing 

Part Three — A Program which Reasons.. , ., . 24 

Syllogisms* Reaching Conciusions, Interna! Storage, 

How it Works, Listing 

Part Four — Search Trees and Snickers.. .34 

Why a Tree? f 'Parallel Processing", Vanishing Acts, 

Didging Deep, Mioi-Maxing, Move Hierachy, Weighted 
ElementSp Alpha-Beta Algorithm, How it Works, Listing 

Part Five — The Wider Value of Games . ....56 

Claude Shannon, Re ai-World Complexities, Other Games and 
Leseons, Brute Force 


















Part Six — Under standing Natural Language. 

Shrdlu, Language Parsing, Syntax and Semantics 


60 


Part Seven — Blockworld.... ..66 

How it Works, Program Modules, Listing, Improving the 
Progam, Shrdlu in Aetion 

Part Eight — Machine Translation. . .,80 

Stili a Use for People, SYSTRAN in Aetion, Franglais, The 
TRANSLATE Program 

Part Nine — Hanshan...... r 87 

Sample Poems, Listing 

Part Ten — Expert Systems ..91 

Areas of Application, ‘Mechanised’ Reasoning, Limitations, 

Chemical Structures and Dendral 

Part Eleven — The Little Spurt. ..... . 96 

Medici, Sample Run, Listing, Little X-Spurt, Listing 

Part Twelve — Self-Leaming Systems...106 

Self-Leam in Aetion, How it Works, Listing 

Section Three — Practical Programs 

Business Programs. 112 

Minicalc.. .....113 

Repayments on Mortgage... 121 

Section Four-FORTH 

History of FORTH . 122 

Listing of THE FORTH TUTOR. .124 

Sample Run and Commands. 133 


Section Five — Sorting and Searching 

The Non-Recuning Shuffle.162 

Sequential Searches ... .... ....... 163 

SelTOrganising Search. .165 

Binary Searching. 166 

Random Numbers....167 

Distribution of Numbers. 169 

Monte Carlo Pi. 171 

Bubble Sort .. 173 

Swap Sort . 174 

Insertion Sort. 175 

Shell Sort. 175 

Sort by Count... .... 176 

Section Six — Disk Drives and other Peripherals 

Joysticks. 178 

Adding Extra Memory. 180 

Connecting a Printer. 180 

Adding Disks.. 181 


a 
















































Foreword 


Your VZ3O0 is a remarkably flexible computer* and in this book we J re 
going to explore some of that flexibility together. 

We start by looking at the sound and graphica potential of your computer, 
Programs with names like 3-D PRINTER PLOTTER and PATTERN- 
MABTER only hint at what you can achieve. The sound demonstration 
programs include ALIEN ATTACK and OBJECT FALLING DOWN 
STAIRS, to get you ready to annoy everyone in the neighbourhood, 

From there we move to the largest section of the book* which shows how 
you can explore the amazing world of Artifidal Intelligence on your VZ3QG. 
You'11 disco ver a Noughts and Crosses program which leams as it plays to 
become a stronger opponent, a reasoning program called SYLLOGY, and a 
fun-to-beat board game with the name of SNICKERS. 

From there, you'll interact with the BLOCKWORLD f as your VZ300 
moves coloured blocks around the screen in response to your commands. 
Translate English into rather strange French with TRANSLATE, and 
produce reams of poetry using our HANSHAN program. 


Once your mind (and VZ30Q) have recovered from ali that intelligence, you 
can set your computer to work with MINICALC and MGRTGAGE, 

The fascinating computer language FORTH comes next in this book. We 
include a complete version of the language, which you can type in so you 
can nin and leam FORTH on your VZ300* without spending a further cent 
buying an additional language for your computer, FORTH even allows you 
to define your own words, 

A number of searching and sorting techniques follow* ali with easy-to-enter 
programs which ailow you to test the speed of the various routines for 
yourself. 

The sixth section of this book examines the wide range of peripherals 
which you can get for your VZ30G* such as joysticks* a disk drive, and a 
printer. 

With ali this, I don't think your VZ300 is going to be able to complain that 
it hasn’t got anything to do for many* many months to come, 

Good Programming* 
Tim Hartnell* 
Melbourne, 1986 


Sectioii One 
Graphics and 
Sound Companion 


You'11 be amazed at the effecta which your VZ300 can produce in the sound 
and graphics departments. We examine some of the possibilities in this 
section of the book, 

Graphics 

We start off with Pattem-Master 1 which generates an infinite number of 
randomly-designed patems. Just press any key when you want to start a 
new design, 

Here's the listing: 


10 REM FATTERN-MA8TER 1 
20 REM PRESS ANY KEY TO START 
30 REM A NEW DESIGN 
110 MODE(1) 

120 COLOR ( 1+RNDC3)) f CRND{2)-1) 

130 L0Z=RND(3)/.02 
140 GF=0 

150 SET ((60 + 3 7 # SIN(GF) ) , C 30+27 f C0S(GF*L0Z ))) 
180 GF=GF*,01 

185 IF XNKEY$O fl " THEN R0N 
190 GOTO 150 


From that we move to an even more impressi ve program* Pattem-Master 2, 
This is a very fine example of how the SET command can be used, If you 
don*t like one design, just press a key and a new one will begin instantly, 

Once the screen has filied with a design* a small tune will play* then a new 
one will begin. 


Here's the listing for Pattem-Master2: 


10 REM FATTERN MASTER 2 
20 MODE(I) 

30 Q=RND(2)-1 

40 F0? X=1 TO 63 STEP RND(O) 

45 COLOR ( 1+RND(3)),Q 
50 Y=RHD(31) 

60 SET(X,Y):SET(128-X,Y) 

70 SET(128-X,64-Y) 

80 SET (X.64-Y) 

90 IF INKEY$<>"» THEN RUN 
100 NEXT X 

110 FOR J=1 TO 30 STEP <2+RND(5)) 
120 SOUND J.RNDC3) 

130 SOUND J/2+1,RND(3) 

140 NEXT J 
150 RUN 

3D Printer Plotter 


This next routine will produce, on a printer, 'three-dimensional’ images 
from equations. There are four sample equations given in the lines 210, 
225, 245 and 250. Once you've seen these in action, you can try 
substituting some of your own. 


The printouts show what a few of the sample ones look like, 
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Here's the listing, so you can see it in action on your own computer: 


10 REM 3D PRINTER PLOTTER 
20 CLS 

30 FOR DE=1 T0 4:G0SUB 180 
35 SOUND 3*DE,3;DE,3 
37 LPRINT:LPRINT;LPRINT:LPRINT 
40 FOR CP=-BI T0 BI STEP BY 
50 AL=0 

60 SU=VA*INT{SQR(900-CP»CP)/VA) 
70 FOH TI = SU T0 -SU STEP -VA 
75 GOSUB 210 

80 ST=INT{VA«VA+X-CH»TI) 

90 IF ST< = AL THEN 120 
100 AL= ST 

110 LPRINT TAB(ST);; 

115 PRINT TAB(ST/2);; 

120 LPRINT " :NEXT TI 

130 PRINT:LPRINT 

140 NEXT CP 

150 NEXT DE 

160 END 

170 REM - 

180 PRINT:PRINT 


3 




























190 VA=5:BYM,5sBI=6*VA:CH=,7 
200 RETURN 

210 Q=SQR(CP*eP+TI*TI) 

220 IF DEOI THEN 230 

225 X=BI # EXF(-Q # Q/100) :HETURN 

230 IF DEOS THEN 240 

235 X=BI*EXP(-C0S(Q/16})-BI:RETURN 

240 IF DE<>3 THEN 250 

245 X=BI-BI*SIN(Q/18):RET0RN 

250 X=SQR(BI«BI+BYTE/100-Q*Q);RBTURN 


Generating Sound 

The SOUND command can be used to add life to your programs. A small 
amount of sound can do a lot to enhance a program, 

The command must aiways be followed by two numbera (or by variables 
representing numbers). The first number is the pitch, or frequency, of the 
note to be played, and the second determines for how long the note will 
sound. 


The pitch is a number between 0 and 31 1 and the duration is a number 
between 1 and 9* The pitch value of 0 produces no sound. It can be used as 
a Vest\ in muste terms. 


Frequency 

Here are the frequencies for the VZ300, The first number is the nu m ber 
you use {as the first one after the SOUND command), and the second is its 
actual musical value; 


0 — 

rest 
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.—. 
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Duration 

Now, here are the relevant note lengfchs. The first number is the one you 
have after the comma in the SOUND command, and the second number is 
its value, taking a quaver to have a value of 1: 

Number Duration 

1 1/8 

2 1/4 

3 3/8 

4 1/2 

5 3/4 

6 1 

7 11/4 

8 2 

9 3 


A simple sound, repeated over and over agam, can be very effective, as this 
Motor Boat demonstrates; 

10 REM MOTOR BOAT 

20 FOR J=1 TO 2 i SOUND J,1:NEXT 

30 GOTO 20 


Using the SOUND command within a loop can also be a good way to 
produce interesting sound, as you*lI hear if you run this brief routine in 
whieh an Object Falis Down Stairs: 


5 REM OBJECT FALLS DOWN STAIRS 
10 FOR J=31 T0 1 STEP -1 
20 SOUND J,INT(4~J/13) 

30 NEXT 
40 SOUND 1,7 


You can combine more than one SOUND statement at a time within a loop 
to produce very effective results, as A lien Attack demonstrates 
convincingly; 


10 REM ALIEN ATTACK 

20 FOR Z=1 T0 4:FOR H-1 TO 5 

30 SOUND 32-Z,1 


5 


1(0 SOUND H+Z/ 2,1 
50 SOUND 30-H,1 
60 SOUHD 31-H-Z,1 
70 NEXT:NEXT 


Or how about this one, which changes your VZ300 into an alarm system: 


10 REM ALERTI 

20 FOR K= 1 TO l|:FOR J =1 TO RND( 9 ) 
30 SOUND J/2 + 1,1 
40 SOUND J,1:SOUND 30-(J+K),1 
50 NEXT:NEXT 
60 GOTO .20 

70 REM 1 CTRL / BREAK' TO STOP 


The VZ Synthesizer 

Finally in this section, we ha ve a program which will ailow you to use your 
VZ300 as a kind of electronic synthesizer, complete with a graphic on- 
screen representation of a two-octave keyboard. 

Once you see it on screen, you’11 know instantly which key to press to get 
which resuit. You'11 note as well that as you press each key, the key 
ch anges colour while the note is sounding. 

Take care when entering this program. Note that the X’s in lines 50, 70 and 
90 should be repaced with inverse spaces, with the exception of the third X 
in line 90, which stays as an X. 


10 REM VZ SYNTHESIZER 

20 CLS:DU=1:DIM A(26),B{26),C( 26 ) 

30 G$=CHR$( 128) :H$=CHR$( 143) : I$ = H$+H$ 

35 J$=CHR$(224)+CHR$(224) 

40 A$=G$+" "+G$+ n "+G$+" "+G$+" B +Gi 

50 B$ = "XX XX XX XX XX XX XX XX" 

60 C$ = " 23 567" 

70 D$="QX WX EX RX TX YX UX IX" 

80 E$ = " S D G H J " 

90 F$="ZX XX CX VX BX NX MX ,X" 
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100 PRINT TAB(4);C$:PRINT TAB( 6 );A$:PRINT TAB( 6 );A$ 

110 PRINT TAB(4); B$:PRINT TAB(4);B$:PRINT TAB(4);D$ 

115 PRINT 

120 PRINT TAB(4); E$:PRINT TAB( 6 );A$:PRINT TAB( 6 );A$ 

130 PRINT TAB(4);B$:PRINT TAB(4);B$:PRINT TAB(4);F$ 

140 PRINT:PRINT " PRESS SPACE BAR T0 EXIT"} 

150 FOR J=1 TO 26:READ Z$:A(J)=ASC(Z$):NEXT 

160 DATA 2 , 3 , 5 , 6 , 7 ,Q,W,E,R,T,Y,U 

165 DATA I,S,D,G,H,J,Z,X,C,V,B,N,M,"," 

170 FOR J=1 T0 26:READ B{J):NEXT 

180 DATA 38,41,47,50,53,132,135,138,141,144 

185 DATA 147,150,153,262,265,271 

190 DATA 274,277,356,359,362,365,368 

195 DATA 371,374,377 

200. FOR J=1 T0 26 : READ C(J):NEXT 

210 DATA 17,19,22,24,26,16,18,20,21,23,25,27,28 

220 DATA 5,7,10,12,14,4,6,8,9,11,13,15,16 

230 SC$ = INKEY$ : IF K$ b " " THEN 230 

240 IF K$=" " THEN PRINT @448,"":END 

250 F0F 1=1 TO 26 

260 IF K$=CHR$(A(1}) THEN FR=C(I):G0TO 270 
265 NEXT I:GOTO 230 

270 IF I <6 0R I>13 AND I<19 THEN M$ = G$:L $ = H$:C = 2 

280 IF NOT (I <6 0R I>13 AND I<19) THEN L$=1$:M$ =J$:C=3 

290 COLOR C:PRINT @B£I),L$ 

300 SOUND FR,DU 
310 PRINT @B(X),M$ 

320 N$=INKEY$:N$=INKEY$ 

340 K $ = n " :GOTO 230 
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Section Two 
Exploring Artificial 
Intelligence 


Part One — 

Learning and Reasoning 

There is a continuing debate as to whether producing a machine which can 
behave in a manner which appears intelligent is actually taking us any 
closer to really producing intelligence, A related question, inextricably 
bound up in the debate, concems the nature of intelligence, 

The programs in this part of the book certainly allow your computer to 
exhibit intelligent responses to situations, making decisions and acting on 
them. However, there is no suggestion that your computer has awareness 
of ita actions. It cannot admire, or even recognise, a particularly effective 

by HANSHAN, and it probably isn’t proud of its «lfill H in 
Jj LQL KWO ELD, 

Is there, then, any justification for claiming that we are producing 
‘artificial intelligence? It seems to me that without the kind of perception 
which recognizes such things as the ‘effeetiveness’ of a poem, or the 
mcongruity of a response, we cannot really suggest that intelligence is 
present. 

AI is in its infancy, and to expect to elicit real awareness and perception 
from a short BASIC program on a VZ3G0, when the largest mainframe 
machines have not even scratched the surface of this area, is unrealistie. 

However, there are two areas of behaviour which are both reasonable 
candida te s for classing behaviour as intelligent, and which can be elicited 
from your own computer. These are the fieids of Uarmng and reasoning 

TICTAC, a program which plays Tic-Tac-Toe (or Noughts and Crosses) 
starts its hfe with just a knowledge of how to win a game, and how to 
block. It does not have any knowledge as to the early moves it should make 
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in a game in order to increase its chance of winning. In fact, its initial 
knowledge base is such that it plays as badly as it can. 

But, put it up against an opponent playing totally at random (an opponent 
who does not even have the rudimentary knowledge that one wins the 
game by getting three noughts or crosses in a row) and within ten games or 
so TICTAC will haveleamt the value of moving into the Central square on 
the grid if it is available, and will have ordered its other moves into a 
sequence which —* although it differs from the sequence you or I might 
create in similar circumstances — allows it to win an increasing proportion 
of its games, even against an intelligent opponent such as yourself, 
TICTAC has been written to show you the state of its present learning 
after each game, This makes it a fascinating program to run, and there are 
many ways you can extend the program to investigate its ability to leam. 

SYLLOGY is our reasoning program. It aims to solve syllogisms, such as 
this early one: 


SOCRATES IS A MAE 
ALL MEN ARE MORTAL 
THEREEORE, SOCRATES IS MORTAL 


From the two initial premises, SYLLOGY draws a reasonable condusion, 
The important thmg to note is that SYLLOGY can reach conclusions 
about Information which has not heen explicitly fed into it. 

FU explain that. Look at these two premises: 

A NOVEL IS A BOOK 
A BOOK IS PRINTED ON PAPER 

Although the program has not been told explicitly that a nove! is printed 
on paper, it will answer YES when presented with this question: 

IS A NOVEL PRINTED ON PAPER? 


You can have a great deal of fun feeding in a long range of premises, them 
asking a variety of question s on them, to see what conclusions SYLLOGY 
can form, I HAVE NO DATA ON THAT, NO and IDONT KNOW are ali 
possible responses from SYLLOGY. 
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In the early stagnes of the could & machina really become mtclligcnt?" 
debate, it became obvious that the fundamental tenus under discussion 
needed Iooking at very carefully. What did we actually mean by thought 
and thinking? If we did not know really know what we meant when uaing 
the terms to refer to ourselves, how could we make judgements on the 
performance of machines in this field? 

This sort of thinking is one of the many effects that studying AI has had. 
Man has been forced to look closely at himself, and to examine areas of 
human behaviour in a way which very few men had ever bothered to do. 

I suggested a short while ago that while machines were not even 
approaching the kind of awareness which appears vital as a prerequisite 
for claiming that intelligence actually exists in a system, some aspects of 
intelligence reasoning and the ability to leam — were within our present 
capabilities. 

There are different kinds of leaming. We can leam by watching others, by 
reading, by being told (which is a kind of ‘verbal reading’ so the two are 
very closely related) and by ‘trial and error’. Computers can leam in all 
these ways. TICTAC leams largely from trial and error, although it has 
some preprogrammed knowledge {which it gained by 'being told’). 

Feedback 

Of course, TICTAC’s trials and errors would be meaningless unless it 
received feedback as to the success or otherwise of its efforts. Feedback is 
a vital element of leaming. 

An early 'machine which would leam’ was the turtle, a forerunner of a 
swarm of such robotic terrapins, built in 1948 by Grey Walter, a 
physiologist who specialised in the brain. He built his turtle — a half-globe 
that tmndled around the floor, working its way ammd obstades, and 
gomg horne to bed when its batteries were getting low — to demonstrate 
a thesis that complex behaviour, no matter how involved it looked to an 
outside observer, was based on interactions between only a few basic ideas. 

The turtle leamed its way around by utilising negative feedback, that is it 
would tend not to repeat behaviour which was not productive. A turtle 
which did not leam that rolling repeatedly into a wall was not a way to 
move around would cover very lit tle ground. 
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How Do Machines Think? 


Present-day computers are serial processors. That is p they proceed from 
point to point P one step at a time, with their future steps determined by the 
results of their previous ones. The human brain, by contrast, uses not only 
serial processing, but also paraUel processing, in which a number of trains 
of thought — some conscious, others not — are underway at once* 

A computeris thought and dedsion-makmg process is essentially a path 
through a maze of IF/THEN constructions: 

IF this is true AND this is true 
AND this not true THEN do this 

The computer, of course, can make OR decisions as well as AND ones: 

IF this is true OH this is true 
THEN do this 

They can be combined: 

IF this is true AND that is true OR 
something else is true THEN do this 

How does it do this? The very first electronic calculating device was built 
(in his kitehen) by George Stibitz who worked for Bell Telephone 
Laboratories in the 194Os. He wired up batteries, bulbs and some 
telephone relay switches, to calculate in binary, (This is the numbering 
system which has only 0 and 1 as its digits. A switch turned on could be 
considered set to equal 1, while when off it was regarded as 0,) Stibitz 
r ealize d that his crude device, if sufficiently expanded, could work on any 
kind of mathematica! problema, (What he apparently did not realise was 
— as you will leam in a moment — that the same Circuit s he was using to 
add binary numbers could be used to reach decisions,) 

However, a few years before, in 1937, Claude Shannon (who later also 
worked for Bell), had gained his masteris at MIT with a thesis on the 
relationship between Boolean Algebra and the flow of power through 
switched Circuit s, 

Boolean Algebra — which is where the ‘thinking’ part of machines really 
begins — is based on the work of George Boole, a lecturer at Queens 
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College, Cork, in the middle of the nineteenth century, Hia book An 
Investigation of the Laws of Thought on Wkich Are Founded the 
Matkematical Theories of Logic and Probabilities (published in 1854) laid 
down the foundations of modem symbolic logic, Boolean Algebra is based 
on the rules he laid out, and is the pivot rotuid which your computer's 
ability to reason rotates. 

Boole wrote in the preface to his work: 

The laws we have to examine are the laws of ane of the most 
important of our mental faculties, The mathematica we have to 
construet are the mathematica of the human inteUect. 

Until Boole J s discoveries, it had been assumed that logic waa a branch of 
philosophy, Boole showed clearly that, instead, it belonged without doubt 
within the province of mathematica. 
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Part Two — 

A Program Which Learns 

Many AI programs do not spring into the YZ30G fully formed, Even 
when they are debugged, and operating, they are far from finished. The 
program we’ll look at in this section, TICTAC (which is a version of TIO 
TAC-TOE or NOUGHTS AND CEOSSES) is one such ‘anformed’ 
program. TICTAC learns as it plays T modifying its rules in light of the 
success or otherwise of its current be ha vior. 

A program which is going to leam as it runs needs its working rules in a 
‘soft* form which can be changed as it evolves. In this program, the 
computer knows the rules of the game, and has a section specifically to 
block rows of three being formed by its opponent, and to complete a row of 
three for ltself if it gets the opportunity, but it has no strategy at ali at the 
beginning. 


Here’s the board layout for TICTAC: 


1 

2 

3 

4 

5 

6 

7 

8 

9 


The program plays by selecting squares in Une with a sequence which it 
evolves as the garries go on, If the game is a success, it moves the positions 
chosen closer to the front of the sequence. It makes no change if the game 
is drawn. A loss shuffles the sequence so the moves are less likely to be 
chosen next time. 


You and I know that the centre square (Hve in the diagram above) is the 
one to take if it is vacant. Initially, TICTAC does not know this. In fact, it 
has been deliverately given a very bad opening ‘book' — with position two 
as its first choice — so that it is easier to see the effect its leaming has on 
its play. 

Eventually* if the learning mechanism is working, TICTAC should realise 
that position Uve is a very good one to possess if it is available. In fact, as 
we shall see, TICTAC does eventuaUy come to this conclusion, even 
though it is playing against a totally random opponent which has no 
strategie knowledge whatsoever. It is reasonable to assume that if 
TICTAC was playing against an intelligent opponent — such as yourself — 
the program would improve more rapidly. 






Donald Michie, a pioneer in artificial intelligence research at Edinburgh 
University and stili very prominent in the field, investigated ‘automalic 
leaming* in the game of noughts and crosses, He used a mechanism called 
‘boxes' in which a goal is split into several sub-goals, A ‘box' is formed to 
hold the information of each sub-goal. 

The goal of noughts and crosses is to win, Each sub-goal is to make at first 
(a) a legal move and eventually (b) the best move given each game position. 

Michie worked out that there are 28 fundamentally different positions 
which face a player if he or she starts in a game of noughts and crosses He 
proceeded to build his mechanica! opponent as follows (an experiment you 
may well want to duplicate). Michie took 288 matehboxes, and painted on 
the top of each a board position, with the vacant squares numbered in 
sequence, Next he wrote down, on tiny bits of paper, the numbers which 
were written on the vacant squares. Each number was duplicated several 
times, with the same number of each number per box. That is, if squares 
three and four were vacant in one board position, the matchbox contained, 
say, nve scraps of paper with the number three written on them, and fi ve 
bearing the number four. 

He played the game as follows. The first move was made by opening the 
box with a blank grid on its top. Inside the box, of course, were five pieces 
of paper for each of the numbers one to nine. A piece of paper was chosen 
at random, and the move made there. Michie made a note of which number 
was selected, and of the box from which the number was chosen. 

At the end of the game, Michie returned to his list of moves and boxes. If 
the ‘matchbox computer* had won the game, an additiona! piece of paper 
bearing each number played was placed in the relevant matchbox. That is, 
if the first matchbox used, the one bearing the blank grid, had yielded the 
number live, an additional piece of paper with the number five on it was 
placed in that matchbox. Naturally enough, this increased the chance that 
five would be selected next time the box was opened, 

The process was continued for every box used in that game. If the game 
was drawn, the contents of the boxes were left unchanged. If the 
computer' lost the game, the pieces of paper which triggered the moves in 
that losing game were withdrawn from the boxes, thus reducing the chance 
that such numbers would be drawn next time the computer came up 
against the same board configuration. 

In the 1968 paper, Boxes: An Experiment in Adaptive Control [Chambers, 


E. A. and Michie, D„ Maehine Intelligence 2 (Ed. Dale, E. and Michie, D.), 
Oliver & Boyd, 1968, pp. 137-152], Michie explains that the boxes 'leamed* 
so well that after 1000 games against an opponent which played totally at 
random, the program was consistentiy wrnning between 75% and 87% of 
all games played. A simiiar success rate is not expected for TICTAC (even 
if you ha ve the patience to play 1000 games) but it will stili perform 
extremely well if draws as well as wrns are counted, and the program is 
given a proper chance to leam, 

Samuel and the Checkerboard 

Michie r s ‘intelligent matchboxes* were but a toy compared to a checkers 
(or 'draughts*) program created in the late sixties by Arthur Samuel of 
IBM. We are discuasing here one of his later programs, as outlined in the 
paper Some Studies in Maehine Leaming Using the Game of Checkers — 
II — Reeent Progress [Samuel, A„ IBM Journal of Research and 
Development, vol. 11 (November 1967), pp, 601-617], However, it is 
interesting to note that the final, aedaimed program did not spring out of 
his brain in all its majesty. 

Samuel had, in fact, began programming checkers games in 1952 working 
on the (for then) powerfui IBM 701 computer. Two years later he 
transferred the program to an IBM 704, and in 1956 began to develop the 
program* s ability to leam. The program took note of some 40 factors when 
determining a move, aJthough less than haif of these were in use for 
working out a particular move, The program knew when a particular factor 
was not contributing towards cboosing a move, and ignored that one for 
the time being. 

The number of pieces each player had was an important consideration, and 
Samuel* s program (like the majority of such programs which followed) was 
quite happy to trade off pieces when it had more than its opponent, but 
became very conservative in this regard when it was losing, from the 
material point of view. Other factors the program considered when 
evaluating its strength included control of the centre of the board and the 
number of pieces which could be brought under attack by a single move, 

We will look more dosely a little later at the AI aspects of board games 
(with the game SNICKERS, invented just for this book) but for now the 
main interest in Samuel*s program lies in its ability to leam. CHECKERS 
had two ways of leaming, rote and self-modification. 


In the rote leaming mode, the program stored the results of investigations 
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into possible moves radiating out from a current board position, This 
meant that next time the position was encountered, the program did not 
ha ve to actuaily go through the proces s of working out its implica tions. 
The resuit was already there, This method, of course, is very memoiy- 
hungry, although highly effective, Eventually, the program played close to 
championship level, and had ‘remembered* practically e very worthwhiie 
board position, 

Samuers evaluation function, which made use of around 40 factors t was 
mentioned a short while ago, The self-modification process worked as 
follows. Samuel allowed the program to search ahead from its present 
position, and to reach a conclusion as to the value of certam moves and 
positions, The program also used its evaluation function to reach a 
conclusion from the same board position, 

Samuel reasoned that, if the evaluation function was perfect, it would 
generate the same advice as the look-ahead mechanism, The faetors within 
the evaluation function were modified after each move, in light of the 
difference between the finding of the forward search, and the Information 
given by the evaluation function. Working in this way removed the 
reliance on vast memory Backup demanded by the rote-learning process. 
Our TICTAC program does not leam as did CHECKEES, but its method 
does involve self-modification, rather than depending upon rote 
accumulation of information. 

Tictac — The Program 

The program begins with an initiali sation sub-routine. Four arrays are 
dimensioned. The A array holds the current game board, M holds the 
‘knowledge base’ of moves (this is updated after each winning or losing 
game), W holds the data from which the program can recognise a potential 
win by itself or an opponent, and D holds the moves in the current game, so 
these can be used to modify the knowledge base at the end of a game. 

As you can see from line 1350, it starts off with a knowledge base 
consisting of the numbers 2, 6, 8, 4, 7, 3, 1, 9, 5 and 2. This is as I pointed 
out earlier, a particularly bad sequence of moves, which practically ensures 
that it will lose a significant proportion of its early games. If you doubt 
that, mentally put those moves onto the board we’re usingin this game: 


1 

2 

3 

4 

5 

6 

7 

8 

9 
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Note that the program does not necessarily make the moves in the order 
shown. It attempts to, but may find the relevant square already taken. As 
well, it does not use its sequence until the pre-programmed knowledge 
regarding blocking possible completed rows of threes by the opponent, and 
trying to complete its own, has been tested. 

Watching the program leam is particularly fascinating. Therefore, part of 
the program reports to you at the end of game, showing you the current 
sequence it is storing. The update of the knowledge base, and its reporting 
to you, is carried by the section of the program from lines 300 to 480. 

Here is the evolving knowledge base of a ‘self-playing’ version, whose 
opponent was my computer’s unintelligent random number generator. 
Despite the lack of concentrated opposition, the program managed to leam 
very rapidly. You can see how quickly TICTAC discovers the value of 
moving into the centre position (number flve on our board); 


3 8 6 4 

2 6 4 8 

6 2 4 8 

2 4 6 8 

4 6 2 8 

6 4 2 8 

4 6 2 8 

6 4 2 8 

6 2 4 5 

2 6 5 8 

2 5 6 4 

5 2 6 8 

2 6 5 4 

2 5 6 8 

5 6 2 4 

6 5 4 2 

5 4 6 2 

4 5 2 6 

5 4 6 2 

4 5 2 8 

5 4 2 6 

4 5 6 2 

5 6 4 2 


7 3 15 9 
7 3 5 1 9 
3 7 15 9 

3 7 5 1 9 
7 3 15 9 
7 3 5 1 9 

7 5 3 1 9 

5 7 3 1 9 

8 7 3 9 1 

4 7 3 9 1 
8 7 3 9 2 
4 7 3 2 9 
8 7 3 2 9 
4 7 2 3 9 
8 2 7 3 9 
8 2 7 3 9 
8 2 7 3 9 
8 7 3 2 9 
8 7 3 2 9 

6 7 3 2 9 
8 7 3 2 9 
8 7 3 2 9 
8 7 3 2 9 


Next, I used the frnal sequence obtained from the automatic run (except 
for changing the duplicated two into a one) in place of the starting 






sequence given in the complete program listing, and started to play 
against the program myaelf, trying to defeat it in every game. You can see 
that it continued to learn: 



The program was modified slightly, and a new starting sequence, which I 
judged as the best I could give it, was entered. The computer played first 
against a human, with the following development (or lack thereof) of its 
knowledge base: 


5 1 
1 3 

3 7 
7 5 
5 3 
5 3 


3 7 9 2 
7 5 9 2 
5 19 2 
3 19 2 
7 19 2 
7 19 2 


9 6 8 
4 6 8 
4 6 8 
4 6 8 
4 6 8 
4 6 8 


It was then set to work against the random opponent, You can see that it 
has little leaming to do, and appears simply to be shuffling a few numbers 


around fairly aimlessly: 







1 

5 

3 

9 

7 

2 

4 

6 

8 

5 

1 

9 

3 

7 

2 

4 

6 

8 

1 

9 

5 

3 

7 

2 

4 

6 

8 

t 

9 

5 

3 

7 

2 

4 

6 

8 

9 

5 

1 

3 

7 

2 

4 

6 

8 


Finally, I retumed to the poor starting sequence, and let the computer 
have its head against the random number generator, After 90 games, the 
sequence was as follows: 


4 7 5 3 8 
7 4 5 3 8 
4 7 5 3 8 
7 4 5 3 8 
7 4 5 3 8 


6 9 2 2 
6 9 2 2 
6 9 2 2 
6 9 2 2 
6 9 2 2 
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fashion, it ap^tnTt!iTbe too^asUv^ 301 ' J ^ t |l 0Ush ifc does leam > after a 
though this may not necessarily help £ pUyS^ 

its knowledge h base IC It^o does not come solely from 

t^n g to build (and whit A ££??“ ° n the rows which it is 

completing). The section of code whicMfni 0 f PreV6nt ltS ° pponent from 

knowledge base, is from 540 to 620 n ! £ S !? ra , move ' before usingthe 
itself (when P equals the ASCII rOrii ^ !^ S first for a win aing move for 
blocking move (5 P sefeSal ^ **? ^ and then tries for a 

“X”). If it fails to frnd aTvA^ ° f **“.<«—**• the 
knowledge base. ere ' ^ ^ rrn ^ s i * 1 the data from the 

fr °m68o' HMtaJfJidT^ove tl frmak nb ^' S rh trandom; ushlgtheroutine 

positions are filled and R$ (which staSff, ’ ther ! acts . to ensure that, if ali 
to “W" for a win. “L” for a lo^ a^d S’f 1 , eSuIt 1 8tnng ' ^ ifc be “g set 
must be a draw. After each mm » i, D f ° r 8 draw> not assigned, the game 
routine from 870 to 960 is visited * machine ' the WIN CHECK 

~ « d ° some -vestigating of your 


10 REM TICTAC - VZ300 VERSION 
30 REM^*.*180;REM INITIALISE 

4? Ili J=1 Vo EG g kllE SETTINGS 

50 A(J )=32 
60 NEXT J 
70 FOR J=i to 5 

80 D(J)=o 

90 NEXT J 
100 COUNT =0 

no 

130 REM U J»J°m2t» EM PfllHr B0ARD 
REM ### MAIN cycle 

!J? 5J,0:I,EM MACHINE MOVE 

150 G05UB 1070:REM PRINT B0ARD 

17? ?p S „* 870:REM WIN CHECK 
170 IF R$<>nn THEN 240 

180 GOSUB 980 :REM ACCEPT HUMAN MOVE 



190 GOSUB 1070:REM PRINT BOARD 
200 GOSUB 870 : REM WIN CHECfC 
210 IF R$="« THEN 140 
220 REM »«* END MAIN CYCLE *«• 


230 REM 

240 REM END OF GAME 

250 GOSUB 1070:REM PRINT 

260 PRINT:PRINT 

270 IF R$="W" THEN PRINT 

280 IF R$="L" THEN PRINT 

290 IF R$a"D" THEN PRINT 

30 

300 REM UPDATE KNOWLEDGE 
310 FOR Bs1 TO 5 
320 FOR J=2 TO 9 


BOARD 

TABC8)i"I WIN":FLAG=-1 
TAB(8)j"YOU WIN":FLAGa1 
TAB(6);"IT'S A DRAW":GOTO 4 

BASE 


330 IF M(J)sD(B) THEN GOSUB 370 
340 NEXT J 
350 NEXT B 
360 GOTO 430 

370 REM ** RE-ORDER ELEMENTS OF M ARRAY *» 

380 TEMP=M(J+FLAG) 

390 M(J+FLAG)=M(J) 

400 M(J)=TEMP 
410 J=9 
420 RETURN 
430 PRINT:PRINT 

440 PRINT "THIS IS MY UPDATED PRIORITY" 

450 PRINT:PRINT 
460 FOR J=1 TO 9 
470 PRINT MC J ); 0 "; 

480 NEXT J 
490 PRINT:PRINT 

500 PRINT "PRESS RETURN TO CONTINUE" 

510 INPUT A $ 

520 GOTO 30 

530 REM t*«****ii«### 

540 REM MACHINE MOVE 
550 P=ASC("0") 

560 X=0 
570 J=1 

575 IF A(W(J))<>A(W(J+1)) THEN 585 

580 IF A<W(J+2))=32 AND A(W(J))=P THEN X=W(J+2):GOTO 
750 
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585 IF A(W(J))<>A{W(J+2)) THEN 595 

590^IF A(W(J+1))s32 AND A(W(J))aP THEN X=W( J+l):GOTO 

595 IF A(W(J+1))<>A(W(J+2)) THEN 610 

600 IF A(W(J))=32 and ACWCJ +1 ))sP THEN X=W(J):GOTO 7 

610 IF J<21 THEN J= J+3:GOTO 58O 

620 IF P=ASC{"0") THEN PsASC{"X"):GOTO 570 

630 REM *» IF NO WIN/BLOCK MOVE FOUND »* 

640 REM «* THEN THIS NEXT SECTION USED *• 

650 1 

660 IF A(M( J))b32 THEN X=M(J):GOTO 750 
670 IF J<10 THEN J=J+1:GOTO 660 
680 Ha0 
690 HaH+1 

700 XbRND( 9):IF A(X)s32 THEN 750 

710 IF H<100 THEN 690 

720 R$a"D":REM IT IS A DRAW 

730 RETURN 

740 REM »•*#•*•** 

750 REM MAKE MOVE 
760 A{X)=ASC("0") 

770 COUNTa COUNT+1 

780 D(COUNT)aX 

790 FLAGs0 

800 FOR J=1 TO 9 

810 IF A(J) = 32 THEN FLAG=1 

820 NEXT J 

830 IF FLAGaO AND R$=«" THEN R$="D" 

850 RETURN * LL FULL ' ** N ° T ASSIGNED ' A DRA W 

860 REM •#**###§# 

870 REM WIN CHECK 
880 J a 1 

890 IF A(W(J)) = 32 THEN J=j+3 
900 IF J>23 THEN RETURN 

910 IF A(W(J))=A(W(J+1)) AND A(W(J))=A{W(J+2)) THEN 

920 IF J<22 THEN J=J+3:G0T0 890 
930 RETURN 

940 IF A(W(J))=ASC("0") THEN R$="W":REM VZ WINS 
960 RETURN^ J ^ = ASC{ " X " 5 THEN R $ = ftL " :REM VE LOSES 
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970 REM •*«»*•#«»• 

980 REM HUMAN MOVE 

990 PRINTiPRINT 

1000 PRINT "ENTER YOUR MOVE" 

1010 INPUI MOVE 

1020 IF MOVE <1 OR M0VE>9 THEN 1010 
1030 IF A(MOVE)<>32 THEN 1010 
1040 A(MOVE)=ASC("X") 

1050 RETUHN 

1060 REM *»*##»***t« 

1070 REM PRINT BOARD 
1080 CLS 

1090 PRINT:PRINT;PRINT 

1100 PRINT "1:2:3 "jCHR$(A( 1 ));" : ";CHR$(A{ 2 ) 

); 

1110 PRINT " ; "jCHR$(A(3)):PRINT ._ 

„„„ II 


1120 PRINT "4:5:6 ";CHR$(A(4));" : ";CHR$(A(5) 

) i 

1130 PRINT » : ";CHR$(A( 6 )):PRINT ".. . 

_ n 


1140 PRINT "7:8:9 ";CHR$fA{ 7 ));" ; ";CHR$(A{8) 

) » 

1150 PRINT " : ";CHR$(A(9)):PRINT 
1160 RETUHN 

1170 REM »«•••*«•#»**•» 

1180 REM INITIALISATION 
1190 CLS 

1200 DIM A(9):REM BOARD 

1210 DIM M(10):REM TO HOLD KNOWLEDGE BASE 

1220 DIM W{24):REM WIN/BLOCK DATA 

1230 DIM D(5):REM TO HOLD MOVES IN CURRENT GAME 

1240 REM WIN/BLOCK DATA 

1250 FOR J=1 TO 24 

1260 READ W(J) 

1270 NEXT J 

1280 DATA 1,2,3,4,5,6,7, 8, 9 

1 290 DATA 1 ,4,7,2, 6 , 8 ,3, 6 ,9 

1300 DATA 1,5,9,3,5,7 

1310 REM INITIAL KNOWLEDGE BASE 

1320 FOR J =1 TO 10 

1330 READ M(J) 

1340 NEXT J 

1350 DATA 2, 6 , 8 ,4,7,3,1,9,5,2 
1360 RETUHN 




REM R AND0M OPPONENT 
^j10 H=G 

4520 HsH+1 
4530 MVE=RND(g) 

4550 IF H<m ) THEN T 4520 A(MVE)=ASCC " X ’ ,) :flETUfiK 
456 0 R$ = "D" 

4570 RETURN 


replawlLne 180withGOsIjB4500. 1638 ° PP ° nent on your VZ30 °. simply 
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Part Three — 

A Program Which Reasons 

From a program which learns, we move to SYLLOGY, a program which 
reasons, Given two related stafcements, SYLLOGY is capable of deducing 
a third statement which contains Information which was not explicitly 
stated, 

The program works with syllogisms. A syilogism is a form of deductive 
argument. Aristotle worked out the rules which determine the validity of a 
syDogism. It generally takes the following form: 

A is a B 
C is an A 

Therefore C is a B 

The Erst two lines of a syilogism are propositioris, while the third line is a 
con cius ion. 


A dog is an animal 
An animal is furry 
Therefore, a dog is furry 

Before we discuss the program, and the background to it, in detail, we will 
show it at work. Ignore the materia! in parentheses before the conclusion, 
as this is included so that you can see the program actually working, You'II 
understand whafc this materia! is once you have followed through the 
explanation of the program, 

The ‘? r prompt appears when SYLLOGY is waiting for an input. *> OK' 
appears when the program has accepted and understood your input, 

? AN EAGLE IS A BIRD 

> OK 

? A BIRD IS A WINGED CREATORE 

> OK 

? IS AU EAGLE A WINGED CREATURE 
(LOQKING FQR EAGLE) 

( FOUKfD AT 11 ) 

> YES 


24 


As the program runs, it builds up a database of propositions, which it can 
refer to any time within that run. Here is the next pair of propositions we 
tried: 


? A BIRD IS A FLYER 

> OK 

? IS AN EAGLE A FLYER 
CLOOKING FOR EAGLE) 

{ FGUND AT 1 1 ) 

> YES 

? IS A FLYER A WINGED CREATORE 
(LOOKING FOR FLYER) 

( FOUND AT 1 4 ) 

> YES 


SYLLOGY will accept, to add to its database, any statement of the 
following form; 


A ,* is a .,, 


This statement can include *an’ or 4 the', as the language parsing is 
programmed to cope with them. Therefore, the following are valid, 
although the program caimot cope with a The' after the 'is' in the middle of 
the sentence: 

An ,,, is a .. , 

The ... is an ,,, 

The program goes into its 'deductive mode' if you start a sentence with ‘is': 

Is * * * a , + * 

Is an ,■# « a **** 

If you simply press the RETURN key, without entering any input, the 
program will terminate (although it may be restarted, without loss of data, 
by GOTO 30). 

Entering a question mark when the prompt appears will allow you to 
discover what SYLLOGY is holding in its memory, under each category 
heading it has created. After you enter the questionmark, the program will 
ask “SUBJECT TO CHECK?". At this point you enter the category 
heading you wish the program to investigate: 


? ? 

SUBJECT TO CHECK? BIRD 

2 2 EAGLE 

3 2 WINGED CREATURE 

4 2 FLYEH 

? ? SUBJECT TO CHECK? EAGLE 
2 1 BIRD 

? ? 

SUBJECT TO CHECK? WINGED CREATURE 
2 3 BIRD 


? ? 

SUBJECT TO CHECK? FLYER 
2 4 BIRD 


SYLLOGY will often produce surprising conelusions, which ELy In the face 
of ali the evidence we can bring to bear: 


? TIM IS A FOOL 

> OK 

? A FOOL IS AN IDIOT 

> OK 

? IS TIM AN IDIOT 
(LOOKING FOR TIM) 

C FOUND AT 1 1 ) 

> JES 

? ? 

SUBJECT TO CHECK? TIM 
2 1 FOOL 

? ? 

SUBJECT TO CHECK? FOOL 

2 2 TIM 

3 2 IDIOT 

? ? 

SUBJECT TO CHECK? IDIOT 
2 3 FOOL 


Although SYLLOGY can be tricked into some absurd conelusions, it 
generally is fairly robust; 


? A CROW IS AN IDIOT 

> OK 

? IS TIM A CROW 
(LOOKING FOR TIM) 

( FOUND AT 1 1 } 

> NO 

? IS A CROW A FOOL 
(LOOKING FOR CROW) 

( FOUND AT 1 6 ) 

> YES 


SYLLOGY works with a two-dimensional string array, Z$ t cross- 
referencing the propositions entered into it* and from this cross reference 
producing conelusions. 

This is fairiy easy to understand if you visualse what is happening as you 
enter sta t ement s, If we type in TIM IS A FOOL the program ignores the 
IS A and uses TIM as a file heading, and puts FOOL undemeath that. A 
second statement of the type A FOOL IS AN IDIOT allows the program 
to open up a new file headed FOOL which has IDIOT undemeath it. When 
the program is asked IS TIM AN IDIOT it first looks to see if it has a 
category calied TIM. On finiding it has, it looks under that for the first 
subject filed. It comes across FOOL, 

Now it looks to see if it has a category headed FOOL. On finding it has, it 
foliows down through the subjects filed under this heading, and discovers 
the subject TIM. Because of this cross-referencing, it knows that the 
answer to the question IS TIM AN IDIOT is yes, 

The same procedure, of course, occurs no matter which series of 
statements you feed into SYLLOGY, There is a lot of room in a 25 x 25 
array such as we have with this program, and you may well wish to save 
your databases on some subjects. 

The TIM IS AN IDIOT series was, of course, handled quite separately 
from THE EAGLE IS A BIRD series. To make it easy to understand how 
SYLLOGY files, and then accesses, the propositions upon which it reaches 


conclusions t this is the internal storage arrangement for THE EAGLE IS 
A BIRD: 



1 

2 

3 

4 

1 

EAGL 

BIRD 

WING. 

FLYER 

2 

BIRD 

EAGL 

BIRD 

BIRD 


3 WING. 


4 

FLYER 

5 



When the program encounters a new subject (the subject being the Rrst 
noun in the proposition), it goes across the ‘top* of the arTay* looking in 
turn at 1,1 then 1,2 then 1,3 and so on, for an unused apace. So* you enter 
THE EAGLE IS A BIRD at the start of a run, 1.1 is vacant, so it stores 
EAGLE in 1,1 and BIBD under that in 2,1. 

It then swaps the two nouns, and opens a category called BIRD which it 
places at 2,1 and underneath that files EAGLE (at 2,2), When It gets 
another statement which calls on a subject for which it has already set up a 
category, such as A BIRD IS A WINGED CREATURE, it stores the 
Information WINGED CREATURE at 3,2 then opens a WINGED 
CREATURE file at 3,1 and stores BIRD underneath that. 


And so it goes* eross-filmg all the Information it receives so that it can 
access it later. The final statement we entered for this run was A BIRD IS 
A FLYER, so SYLLOGY filed FLYER in the first available blank spot 
under BIRD (at 4,2) and opened a new category FLYER at 1,4 and stored 
BIRD underneath that at 2,4, 

When you enter a question mark, to check the contents of a file* the 
computer simply goes to across the subject heading row (that is from 1,1 
to 1,2 to 1*3 and so on) until it finds the subject, If it gets to the end (that is 
to 1,25) and does not find the subject, it will teli you It has no data stored 
on that subject, Having found the subject (such as BIRD at 1,2) it then 
works down the file, printing out the contents of each file. In this case, 
then, it would print out EAGLE, WINGED CREATURE and FLYER, 


When it comes time to make a decision, on whether IS AN EAGLE A 
FLYER (decisions are triggered by the fact that the user input starts with 
the word OR) the program first looks across the top row to check whether 
or not it has any Information stored on the first noun in the question. If it 
finds it has, SYLLOGY reports this to you (LOOKING FOR EAGLE 
FOUND AT 1,1) then looks down that row for the words stored under it. It 
finds BIRD (at 2,1} and then retums to the first row to find FLYER, It 
discovers it at 1,4 and scans down that row to find BIRD (at 2,4). It has 
now found a common link (BIRD) between the two words it is thinking 
about (EAGLE and FLYER) and can therefore conclude that the answer 
to the question IS AN EAGLE A FLYER is, in fact, YES, SYLLOGY 
then telis you what it has concluded. 

The Program 

In SYLLOGY, line 40 sends action to 910 if a question mark has been 
entered. Line 80 detects the ( IS' at the start of the Input, indicating that 
the user is asking SYLLOGY to try and reach a eonclusion, This sends 
action to 480, where the eonclusion routine begins. 

Lines 90, 100 and 110 strip THE, AN or A from the front of the input, so 
that A$ now begins with the noun which will be used to head a file. 

The next routine* from 120 to 230, splits the input up into two words, with 
lines 120 to 160 getting the first noun, and triggering I DON'T 
UNDERSTAND (from line 170) if the input is not in accord with the 
specified format. Lines 180 through to 230 extract the second word. Line 
190 checks to see if the phrase which is left affcer the first noun has been 
stripped starts with and, if it does, assumes the centre word is 
( WAS' ", This aliows it to accept phrases such as: 

THE I>0D0 WAS A BIG BIED 

and 

TIM IS AN IDI0T 


Having extracted the important words (and having set B8 to the first one 
and C$ to the second) the program proceeds to store them in its database. 
Remember* this section of code is only used for ‘laying down* information. 
Taking it up again is leoked after by the "reach a eonclusion' section of the 
program. 








The program next looks across the top of it s file table, to see if (a) it already 
has a file on that subject, and if not (b) it has a space left in which to start 
such a file, If there is no space left, the message in line 310 NO MORE 
SUB JECT ROOM is triggered, 

The next routine, from 320, is reached once the program has either 
discovered it already has a fUe (line 230) or has found room to create a file 
and has, in fact, done so (line 290). 

There is no need for SYLLOGY to store EAGLE nnder BIBD more than 
once, even if the line AN EAGLE IS A BIRD is fed to the program more 
than once, Line 360 ensures that duplication definitioris are not saved, 
Once the 'object* has been saved, the computer swaps subject and object 
(lines 420 through to 450) and then saves them the other way around. That 

is, if it saved EAGLE as a subject heading before, with BIRD undemeath 

it, this time it saves BIRD with EAGLE as one of the file contents. 

Now we come to the reaily interesting part (at least in terms of 
performance when SYLLOGY is ranning), the section which reaches 
conclusions. Firstly the leading IS is stripped from the input, along with A 
(line 510) or AN (line 520) if these are present (this means it can deal with 
IS AN EAGLE A BIRD as well IS TIM AN IDIOT), This section of code 
gets the first word, and sets it equal to F$. The next section extracts the 
second word, to set it equal to SS, 

The program lets you know what it is looking for (printing up LOOKING 
FOR ‘first word' in line 630) and if it finds it, telis you where in the table it 
was located (FOUND AT . *. in line 660). If it cannot find the second word 
it informs you of this (line 680) then retums to the main program. This line 
is triggered if, for example, you asked it IS TIM A GENIUS and it had 
not previously encountered the word GENIUS, 

Our next section of code reaches conclusions, The first bit, from 700 to 730, 
says YES if the question you asked was exactly in the form you originally 
gave it some Information, That is, if you had asked IS AN EAGLE A 
BIRD and earlier you had told it explicitly AN EAGLE IS A BIRD, this 
first part would discover this, and teli you YES, 

The next section, from 710 right through to 800, searches to find the word 
using the method outlined earlier, reaching either a YES (line 850) or a NO 
(Une 820) conclusion. 
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This final section is the one which lets you know what the program has 
stored under particular subject headings. 


Now, here is the listmg of SYLLOGY, so you can reach a few conclusions 
of your own. 


10 REM SYLLOGY 

20 GOSUB 1 050 : REM INITIALISE 
30 PRINT;INPUT A$ 

110 IF A^«?" THEN 910 
50 IF A$="« THEN END 
60 FLAGRO 

70 REM NOTE SPACE BEFORE CL0SE QUOTE IN NEXT LINES 
80 IF LEFT$(A$ f 3)="I5 * THEN 480:REM CONCLUSIONS 
90 IF LEFT$(A$ , 4 ) = "THE 11 THEN A$ = MID$ ( A $ , 5 ) 

100 IF LEFT$(A$ J 3)=”AN " THEN MID$(A$ f 4) 

110 IF LEFT$(A$ f 2}s n A « THEN A$ = MID$( k$ f 3) 

120 X=LEN(A$) 

130 N= 0 
140 N= N+1 

150 IF MID$(A$,N,1}=" " THEN B$sLEFT$(A$ f N-1):G0TO 1 
80 

160 IF N<X THEN 140 

170 PRINT ”1 DON f T UNDERSTAND”:GOTO 30 
180 K = 4 

190 IF MID$(A$ f N+1 , 1 ) = n tf lf THEN K=5 

200 C$=MID${ A$ ,’N+K) : REM QUALIFYING PHEASE 

210 IF LEFT$(C$,2)="A » THEN C$= MID$(C$,3):REM REMOV 

ES ARTICLE 

220 IF LEFT$(C $,3)= n AN * THEN C$=MID$(C$,4) 

230 IF LEFT$(C$, 4}s rt THE " THEN C$ = MID $ { C$ , 5 ) 

240 REM ** STOEE INFORMATION ** 

250 REM CHECK TO SEE IF CAN FIND SUBJECT BEFORE BLAN 
K 

260 N = 0 
270 N= N+1 

280 IF Z$(1,N)=B$ THEN 320:REM SUBJECT HEADING EXIST 
S 

290 IF Z$(1,N>=*" THEN 2$(1,N) =B$ :GOTO 320 

300 IF N<25 THEN 270 

310 PRINT ”N0 MORE SUBJECT ROOM” 

320 REM REACHES HERE WITH SUBJECT STORED AS HEADING 
330 REM ** NOW PUT OBJECT UNDER THIS ** 
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340 K=0 
350 K = K+1 

360 IF Z$(K,N)=C$ THEN 400:REM ALREADY STORED 
370 IF Z$(K,N)="" THEN Z$(K,N)sC$:GOTO 400 
380 IF K<25 THEN 350 
390 PRINT "NO MORE OBJECT SPACE" 

400 IF FLAG=1 THEN PRINT TAB{6)f"> OK":GOTO 30 

410 REM •• NOW SWAP OBJECT AND SCJBJECT AND SAVE AGAI 

N *» 

420 FLAGsl 
430 M$ = B$ 

440 B$sC$ 

450 C$ = M$ 

460 GOTO 250 

470 REM ****«*»**i«*»**i 

480 REM »• CONCLUSIONE •» 

490 REM »• FIRST SPLIT INFUT ■* 

500 A$=MID${A$,4):REM STRIP "IS" 

510 IF LEFT$(A$,2)="A " THEN A$=MID$(A$,3):REM STRIP 
tt A " 

520 IF LEFT$CA$,3)="AN " THEN A$=MID$(A$,4):REM STRI 
P "AN" 

530 REM ** GET FIRST WORD - F$ ** 

540 X=LEN{A$ ) 

550 N=0 
560 N=N+1 

570 IF MID$(A$,N,1) = " " THEN F$=LEFT${A$,N-1):GOTO 6 
00 

580 IF N<X THEN 560 

590 PRINT "> DO NOT UNDERSTAND":GOTO 30 
600 REM *• NOW GET SECOND WORD - S$ ** 

610 S$=MID$(A$,N+3) 

620 IF LEFT$(S$,1)=" " THEN S$=MID$(S$,2) 

630 PRINT "(LOOKING FOR 
640 X= 0 
650 X=X+1 

655 IF Z$C1,X)OF$ THEN 670 

660 PRINT "( FOUND AT 1";X;")":GOTO 700 

670 IF X<25 THEN 650 

680 PRINT "CANNOT FIND SUBJECT":PRINT TAB(2):Ft 
690 GOTO 30 
700 Y =1 
710 Y=Y+1 
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720 IF Z$CY,X)sS$ THEN PRINT TAB(6};"> YES":GOTO 30 
730 IF Y<25 THEN 710 
740 Y= 1 
750 YaY+1 
760 P$aZ$(Y f X) 

770 MaO 
780 M=M+1 

790 IF Z$(1,M)=P$ THEN 830 

800 IF M<25 THEN 780 

810 IF Y<25 THEN 750 

820 PRINT TAB(6)j"> NO":GOTO 30 

830 Q= 1 

840 Q=Q+1 

850 IF Z$(Q,M)=S$ THEN PRINT TAB(6)}"> YES":GOTO 30 

860 IF Q<25 THEN 840 

870 IF M<25 THEN 780 

880 GOTO 820 

900 REM 

910 REM CHECK CONTENTS OF PARTICULAR FILE 
920 INPUT "SUBJECT TO CHECK";H$ 

930 T = 0 
940 T= T+1 

950 IF Z$(1,T)sH$ THEN 990 
960 IF T<25 THEN 940 

970 PRINT "I HAVE NO DATA STORED ON ";H$ 

980 GOTO 30 
990 K = 1 
1000 K =K +1 

1010 IF Z$(K,T)<>"" THEN PRINT KtT;Z$(K,T) 

1020 IF K<25 THEN 1000 

1030 GOTO 30 

1040 REM «*****#### 

1050 REM INITIALISE 
1060 CLS 

1080 DIM Z$(25,25> 

1090 RETURN 
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Part Four — 

Search Trees and Snickers 

In this section of the book, we will develop a Draughts-like program 
SNICKERS. We will use it to discus s some ideas of tree*searching, in 
which the computer behaves with a degree of intelligence by searching 
along lines of related options, and then from these chooses that which it 
judges to be the best action. 

Searching through trees of options in this way is common to most problem- 
solving programs, Modifications, many of them most important ones, such 
as 'pruning' the tree to save following worthless branches at ali, or to 
follow other branches to an unnecessary depth, are nearly always used in 
tree-searching to stop the process from taking an inordinate amount of 
time, but the basic idea of the tree search is stili fundamenta! to problem- 
sclving, 

Why is it Called a Tree? 

A search tree grows like any other tree, apart from being upside down. 
Take A in the following diagram as the starting point for the search* The 
branches (labelled R, C and D) gomg off it represent valid decisions (or 
legal moves, if the program is tackling a game). The smaller branches 
radiating from these (E* F and so on) are implications of following that 
branch, 

A 



If the tree represents a move-finding mechanism in a chess game, for 
example, the A may represent the movement of a particular knight The 



program then follows through the implications of that move. B assumes, 
let us say, that moving this kmght puts one of the opponentes pieces under 
attack, Response E is the opponent simply backing this piece away, F may 
be supporting the threatened piece with another one, and G may be 
captunng the offending kmght. E, F and G would further split* into N, O 
*. - and so on, which would cover the possible responses to each action* 

You can see that the search would rapidly escalate, and the options being 
considered would reach astronomical proportions, unless there was some 
means of guiding the search, Only in a very simple program, such as one 
which played Noughts and Crosses, could a program examine every branch 
of every tree, before choosing the best move* 

For other programs, a branch can be examined to a pre-determined depth 
(and we*Il be discussing depth shortly) instead of to the end, and the resuit 
of that examination stored. 

‘Parallel Processing^ 

Another approach would be to examine a short distance down one branch, 
then back up and start another branch, and so on, and then examine the 
more promising branches to a greater depth, A branch, for example, which 
assumed the opponent in a chess game would sacrifice the queen to capture 
a pawn, would not merit further examination, Any branch which led the 
opponent —* in the opinion of the program S s evaluation mechanism — to 
weaken his or her position could be abandoned the moment this discovery 
was made, and processing time and effort put into following more 
promising leads. 

When developing your own AI programs, it is worth starting to thinlr 
about them in terms of search trees, as it is likely that they will involve 
this in some way, The tree may grow quite frighteningly, eapecially if you 
are not working in a tightly-restricted domain (such as we do in BLOCK- 
WORLD), or you are not too ciear as to the criteria by which your program 
could be making choices. 

We have developed SNICKERS for this section of the book, in order to 
demonstrate some aspects of primitive tree-searching, Naturally enough, 
you need to know how to play the game in order to understand the 
discussion about it, Each piece moves like a checkers' piece diagonally. 
Capturos in SNICKERS are carried out in a familiar way, by leaping over 
an enemy piece into a vacant square beyond. However, in contrast to 
checkers, there are no multiple jumps in this game. 
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Vanishing Acts 


The aim of the game is to get a score of five before the opponent does so 
There are two ways to score a point. One way, predictably enough, is to 
capture an enemy piece. The other way is to reach the back row on the 
opposite side of the board. In checkers, this would resuit in the piece being 
crowned', or tumed into a king with the abiiity to move backwards and 
forwards at will. In SNICKERS, the piece vanishes on reaching the 
opposite back row (which means, among other things, that you cannot 
nave either kings in SNICKERS, nor pieces moving 'backwards' on the 
board), 

If you leap over an enemy piece, and end up after that capture on the 
opposite back row, you’ll get two points, rather than one. You’ll see this 
occumng several times in most games. Your VZ300 will teli you 
moves it is consi dering at each point in the game, so you can see its 
macnine intelligence at work. At the beginning of the game, as a momenta’ 
thought will show, there are just seven possible opening moves, The 
computer finds each legal move, then prints up the moves on the top of the 
screen, before making the move, as follows (with the numbers themselves 
bemg worked out by specifying the number down the edges of the board 
tirst, tollowed by the number across the top or bottom): 


CONSIDERING 71 TO 62 
CONSIDERING 73 TO 64 
CONSIDERING 73 TO 62 
CONSIDERING 75 TO 66 
CONSIDEBING 75 TO 64 
CONSIDERING 77 TO 68 
CONSIDERING 77 TO 66 


The numbers printed here by the computer refer to those within a mas ter 
array which holds the board inside your VZ300. At the top of the faeing 
page you ’11 see a diagram of the board which the computer uses in 
SNICKERS. 
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U,,™ ,!f°SN,CKERK|rf7‘ >IUe h J’!i by • fement 59 in *■» («™. in 

smLKERS) will warn it that such a move is ‘off the board’, 
wiirs^ mUCh r re important ’ «dvantage lies in the consistency 


71 to 62 -9 
73 to 64 -9 


73 to 62 -11 
75 to 66 -9 


75 to 64 -11 
77 to 68 -9 
77 to 66 -11 
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The difference between the starting square, and the ending square, is 
either minus ni ne or minus eleven. And if you compare the numbers given 
above with the board, you’11 see that moves downward and to the left are 
always minus eleven, and those downward and to the right are always 
minus nine. 

This is trae ali over the board, Any non-capture move made by the 
computer musfc be minus nine or minus eleven from the starting square. 
Tlus is, Fm sure you can appreciate, most convenient from the computeris 
point of view. (If you care to try the experiment using a board which 
simply has the black squares numbered from one to thirty-two you'11 soon 
appreciate the grave problems this can cause.) 

Furthermore, the VZ300 can mak e decisions fairly easily on this board. 
Assume the square the computer is on, is numbered X. If there is a human 
piece on X-9, and X-18 is empty, it knows it can capture by leaping into X- 
18. Its score can then be incremented, and X-9 tumed into a blank square. 

And of course, and this where ‘intelligence' really comes in, the 
computer can look beyond that move, to see which one the human is likely 
to make next. If there is a human piece in X-27, the computer can assume 
— possibly rightly — that the human's next move will be to capture the 
computer piece now sitting on X-1.8 t by moving into X-9. 

The position after the capture (remembered, you as Amstrad are now on X- 
18) is also potentially under threat from X-25, if X-7 is vacant. This 
explanation is probably beeommg a little bewildering at this point, so I 
suggest you try and follow it through on the board which was printed 
on page 37,or on a game board you ha ve numbered in the same way. 

The VZ300 can also sense when a piece of its own is under threat. 
Imagine, once agam, that you are the computer on square X. The human 
moves into square X-9, You know that X+9 is vacant, so the human may 
weil move into X+9 on his or her next move, capfcuring you on X. You 

could counter this by either moving a piece of your own into X+9, or_if 

this is not possible — moving a piece so that it threatens X+9. This may 
persuade the human player not to make the capture, 

There is no equivalent of checkers ‘huffing' in SNICKERS. You are under 
no obligation to capture a piece if you do not want to. You may prefer not 
to capture a threatened piece, knowing that you may have a chance of 
seoring two points with the threatening piece a little later, on another 
capture which would end on the back row. 
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Digging Deep 


The SNICKERS tree search does not proceed very deeply, although it 
manages to play reasonably weil, winning its fair share of games, You may 
weil be tempted to think that, if a tree was set up and searched completely 
the program would play perfectly. 


SNICKERS is a less complex game than checkers, with no multiple irnnps 
and no kmgs so it is not too unreasonable to assume that a perfect system 
nught be evolved, At the very least, it should be possible to create a path 
which the computer can follow to play the game extremely weil. 




„ Duiuewiiai, simuar co me matchbox fcic-tac- 

toe computer discussed in the section ou the program TIC-TAC. That is 
we could examine every possible move, of every possible game, and 
analyse them m depth. After ali, we have tireless computers at our 
tusposal, and they couid do the donkey work. 




- -*—” loiu you so a rew 

pages back) that it had seven moves it could make at the start of the game. 
so our tree, with A at the top, starts with branches B, C, D, E, F, G and H 
at the very first level. The human player similarly has seven moves from 
which to choose at the start of the game. Each of our initial branches now 
needs seven sub-branches (or ‘nodes’ as the branching points are called). 
After each player has had one move, and even before the program starts to 
look at possible responses to the human's first move, we have stacked up 
torty-nme divergent streams to follow. 

The position gets worse. Now that one piece has moved out of the front 
row o each player s rank, two possible moves (one in some cases, if the 
mitial move was at either end) are now available, plus another six (the first 
move has possibly blocked a move by a piece which is stili on the front 
row). i hat means we have another 49 times 8 branches to consider, even 
oetore the human has had a second move. 


A sinular search tree for checkers would contain around 10 raised to the 
40th power nodes. Considered at the rate of three million nodes per second 
(which would take a pretty nifty computer), this tree would take around 10 
raised to the 21 st power years to consider. 

We suggested earlier that one way of pruning the tree would be to abandon 
unprofitable branches Isuch as any that imagines the opponent would 


deliberately move into danger needlessly), to leave time and effort to 
examine more worthwhile branches. It was also suggested that the 
computer could check a certain distance into a branch, take note of what it 
had1 concluded, then swap to another branch, then another and another 
mth the option of abandoning branches which were beooming weaker, and 
concentrating on the more promising ones, 

To do this, we have to be able to assign a value to the position found, This 
can be a number (based on something iike the one for SamueTs checkers 
program - discussed in the TIC-TAC section of the book) or can be based < 
on an hierarchical scheme to order moves chosen, and decide not to follow 
the majority of move branches which could be generated. As you’11 see 
shortly, this is how we do it in the SNICKERS program. 

Mini-Maxing 


However, we must first look a little further into search trees, in our quest 
for the perfect game-playing computer, SNICKERS uses a cnide form of 
the technique known as ^ miIl^maxing , with which we can prune our 
relentlessly multiplying branches, 

To use this t however, the computer shouid be able to assign numerical 
values to the positions it discovers. 

Imagine that it has three options it is considering, and each option consiste 
of a move by a different piece. The value given to the move could consist, in 
E>art, of how close to the centre the piece will be after the move, if it 
threatens (immediately, or could do so after another move) an eoemy piece, 
if the square it is considering moving to is under threat, if the move 
actuaUy makes a capture, or achieves some other goal (such as reaching the 
opposite back row). 

Here ia our tree, with moves B, C and D at the ends of the First three 
branches, with their scores next to thenr 

A 
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You can see that C has the highest value, so this node wculd seem the 
obvious choice. Remember, this little tree is based on the situation after 
the computer has moved, However, if the machme looks at the next series 
of branches, when the possible responses by the human player are 
considered and evaluated, it could see this: 


A 



The values given here for nodes E to J are assessed in terms of the player's 
evaluation of the board positions, The best move to be made by the 
computer could be the one which gives the human choices that will leave 
him or her in the weakest possible position. The choice then must be the 
one which gives the computer the maximum possible score while leaving 
the human choices which minimise his or her strength, This is where the 
term mini-maxing comes from. 

Assummg the computer was not going to look further, to assess its own 
position after each of the moves which the player could make (and possibly 
assess player responses to that response), it may well be advised to choose 
move B, This leaves it in a fairly strong position (rating 8) although it does 
not leave it in the same position as move C would have done (rating 12), 

The computer assumes the player will make the best move it can in the 
circumstances. Had the computer played C, to get a maximum rating 
immediately after the move, it would have left the human to play H, 
ending up with a rating of 13. Instead, by playing move B, the human can 
— at best — respond for a rating of 2, from node E, 


I said earlier that SNICKERS works by assigning a value to each possible 
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move, in a hierarchy. It chooses its moves in reference to this hierarchy* 
which puts a value on the possible moves in the foOowing order, Xt will 
always make a move which is higher up the tree if it can. 

A degree of mini-maxing is present. The program thinks solely in terms of 
material advantage* that is T it seeks at ali times to nunimise the number of 
pieces the opponent has, and to pre&erve its own lives. 

For example* the program may see two possible captures» one of which will 
subsequently expose it to capture and one which will not. Naturaily 
enough, it will make the move which leaves it in the strongest position 
after the move (with the piece which has done the capturing stili on the 
board) and ignore the move which enables the opponent to strengthen his 
or her position (by scoring a capture in retura), 

The hierarchy of moves used by SNXCKERS to prune the 'possible moves' 
tree* and to save searching down branches which represent moves it is 
most unlikely to make* is as follows* Any moves found that fit the 
description are stored: 

Safe captures which further threaten h umari pieces, and do not 
expose another piece to capture. 

— Captures which leave the pieces making the capture in complete 
safety. 

— Other captures» 

— Moves to protect pieces under threat, 

— ^ ndom rejection of above moves* if the making of the move will 
expose a subsequent piece to capture. 

— Non-capture moves onto the back row* 

— Non-capture moves which do not expose the computer to danger* 

— Any legai move. 

If it finds any capture moves* it will not bofcher looking further down the 
tree. In effect» it automaticaUy prunes branches with 'lower' nodes by not 
even considering them. This may seem rash, and certainly me^ns the 
program is unable to play with any kind of overall strategy, but it works 
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surprisingiy we n (aided, of course, by the simple nature of the game) in 
practice, and manages to play with an appearanee of skill. 

So you can appreciate, I hope, that this hierarchical ordering of moves 
number of Possibilities which must be explored. When 
ng the program* you’11 see it first sweeps the board* square by 

‘slfHr SptSis' CaPtUreS ' WhiCh areSUbsequently storedas ‘good. safe’, 
stor f ge areas Wedicated areas) are empty at the end of this sweep 

If this search has failed to find a move, the VZ300 picks locations on the 

tha^frl ■ ' U ha f a Pfedetermined order for doing this, ensuring 

the centre S *” 2 ?! baCk mw and 0311 be moved > ««e closest to 
underthr^K 6 flrst ' 011 the «ssumption that it is more iikely to be 

.. , han a piece at the end. This is a rough-and-ready assumption 

ontolhTbaTrow 6 *“ firSt P iece * 

™ T, h f n0t y6t been made ’ the board is swe P fc yet Win. and any safe 
moves (that is, moves which do not expose the piece moved to capture) 

JZl"the S S a red ' If any hSVe been f0Und ’ the VZ30 ° chooses at 
blarf 3 m °T’ T VZ3 °° l0 ° ks t0 see if ifc has aay 

the 200 stah^n'., ? S I°b any ICgal m ° Ve ' If n0 move has been found ii 
We 25 ? h *i fQr fUldlng ° ne ’ the com P uter sriH concede the game. 

e will go through the main parts of the listing shortly* and identifv fche 
subroutines which carry out each of the tasks specified. 7 

f? a , may feel the multiple sweeps of the board are somewhat 

answer of course' B . P ? gr ?™ not doa11 of its lookin g in a single sweep? The 
“forti n 18 y t' eX “ Pt lk WOuld mean a nonsiderable waste of 

which Mn y CaSes ', when rt wou W be looking for, and storing moves 
mtentl0n ofeven considering. Yon may well, howfver, like 
modify the program, or write one of your own, to do ali the checks in a 
smgle sweep, and see what effect this has on its reactxm time 

rdativ^ r vs t lue° b f V10US thathierarchical system for determining the 
relative value of moves could be combined, for greater fiexibility, with an 


evaluation function, This could bring in things like Samuel did, such as the 
number of pieces on the board held by one player as opposed to the other, 
the number of pieces under direct threat, and 'control of the centre’’ 
however that may be defined. 

One alternative to using an evaluation function would be for the computer 
to store ali the possible board positions, and have each of these assigned a 
predetermined value. But this 'solution', like the idea of making complete 
trees covering ali the possible outcomes of the game, runs up against the 
barrier of astronomically large numbers. There are around 10 raised to the 
40 th power possible board positions with checkers, and those of 
SNICKERS would approach the same order of magnitude. 

There are no simple rules to apply when developing your own evaluation 
functions for board game programs you write. ‘Informed guesswork’ 
should guide your initial function, and then trying out the function in 
practice should allow you to modify it so that it performs well in practice. 
The advantage of a simple game, like noughts and crosses, is that the 
program can be set up to play repeatedly against an opponent playing 
randomly, or an intelligent one. The results of the games can be used to 
automatically modify the evaluation function, or a large number of games 
can be played with one version of the function, and compared with a 
similar number of challenges with modified functions. It is not so simple to 
program an opponent to play repeatedly against a program in a more 
complex game such as chess, checkers or even SNICKERS. 

Weighted Elements 

The task is made a little easier by the fact that the elements which malre U p 
an evaluation function are generally weighted with some factors within the 
function being multipiied by a higher value than others. Modification of 
the evaluation function may well then be a matter of modifying the 
weighting factors, rather than having to add or discard whole new 
elements* 

HI try to explain that last paragraph with a concrete example. Experience 
has shown chess players that the relative value of pieces can be expressed, 
in a rough and ready mairner, as foliows: 

PAWN -1 ROOK _5 

BISHOP — 3 QUEEN — 9 

KNIGHT - 3.5 KING -128 (‘infinite’) 
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have, and subtracting the pieces your opponent has, to give a measure of 
your relative 'strength' as follows: 

Strength s n*wP + 3 # n»wB + 3.5»n«wK + 

5*n»wR + 9»n«wQ - (N»bP + 3»N»bB + 

3.5*N«bK + + 9*N*bQ) 

With this as a starting evaluation, you could possible write a rough chess 
program, which was willing to consider sacrificing pieces, or trading them, 
when your strength was positive, and which would be most conservative 
m this regard when the ‘strength’ was negative. Playing against this 
program, and using this function in order to help decide which branches 
should be searched {using mini-maxing) could indicate that — in fact — the 
value of the rook has been underestimated, leading to unnecessaiy errors 
of judgement. You could then increase the value of a rook to say 6*5 or 7. 

The worth of your evaluation function could be increased if mobility 
(possibly expressed as the number of moves each piece has) could be 
incorporated. The value of the rook, for example, could be expressed {with 
rm equa 1 to the moves it could make» as 5 *n*wr+ 3 *rm. The function could 
be further elaborated by adding a number to the va!ue of the piece which 
reflected the Value' of the square it was occupying (with the Central four 
squares worth, say, 8 each, the squares aurrounding the Central four worth 
6.5 and the next set worth 4 ), And so on* Thmking about the problems 
inherent m creating an evaluation function for a game as complex as chess 
indicatos clearly that such a task is not a trivial one* 

If you are interested in developing evaluation functions, you might like to 
start with one for SNICKERS* and use it to modify the way moves are 
chosen. You should find that even a crude function — if you can get the 
computer to apply it in practice — should improve the computer's plav to a 
noticeable extenfc. 


It would be possible, given nearly infinite time and computing power to 
seaxch each branch of the tree until the end of the game was reached. This 
would mean investigating an enormous number of possibilities, as you 
shall see in a moment, A more sensible approach, perhaps, would be to 
hmit the depth of search. Let 5 s assume, for now, that we have deliberately 
deaded to follow the tree for just two steps, one move and the opponent *s 
possible answers to that move. 

A search of this kind is cailed ‘2-pIy T because we are looking to a depth of 
gxtt 5 10Ve and the ™mediate response to that move. In a rough way, 
SNICKERS uses a kind of 2-ply search (but without overall mini-maxing) 
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tiying for the move which gives it the beat material advantage, assuming 
the opponent plays his or her best move in material terms in response (that 
is, the opponent captures if this is possible). Assuming your evaluation 
nmction is reahstic, the deeper the ply t the better the results your program 
should achieve. 

However, astronomical numbers come into play again as we increase the 
depth of search. If we assume, in noughts and crosses, that there are three 
possible moves at the start of a game (that is, a move in one comer is equal 
to a move in any corner, as the flrst board can be transformed into the 
others by rotation), there are twelve positions at the 2-ply level, and a 
number approaching 12*7 C approaching', because not all these’ games 
would be played out to completion, as a draw or win would be evident 
before all nine positions were filled) at the next level* 

In other games, the possibilities increase even more dramaticahy, An 
average 4*ply search in chess, for example, has to cope with around a 
million possibilities. 

The Alpha-Beta Algorithm 

How can we possibly cope with all these numbers, in an attempt to write a 
program which plays reasonably well, but which does not take 10 raised to 
the 40th power years to make a move? It is time now to introduce the 
alpha-beta algorithm, a very useful aid in trimming branches in our search 
tree, 

The alpha-beta idea is simple, but powerful. It says that - if you can 
choose from a set of possible moves — once you have found one move 
which suits your needs (and your needs could well be expressed in terms of 
improving the score produced by your evaluation function), there is no 
need to look for another move in that set* 

The alpha-beta algorithm is so named because it operates simply by 
keeping track of two values, called alpha and beta. Our program is 
searching through a tree, looking for a good move* Alpha is the value of the 
best move it has so far discovered, As the search continues, the program 
finds a move which produces a lower value tfaan alpha. It knows 
immediately it is not worth following that branch, because it would lead fco 
a worse resuit than the best one found so far. This means the computer is 
free to continue searching, on a new branch. 

Meanwhile, the program is also working out the possible Tesponses to its 
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view — so the opponent woold fr0m °PP ane nt s point of 

foUowing the situaHrme u ■ to ma ke It — there is no point in 

value which the opponent has m that response - Beta is the 

computer move The seamh ma ^ ing 1119 or her best response to a 

opponent movewhth it % d ? SCOntinued ff the branch leads to an 
P%erSSf ^ “ Sh the value ^ta, seen from the 

lowerTthe th ® P ath being investigated, that 

terminator is called, naturaUy ^ 

following sequence of eventsf 6 Sld@ ° f this aJgoritilm in action in the 


Measure the value of the current board. 

Find the first move. 

- Measure the value of the board after that move. 

wid work aut wfaat the board 

■ Hecord both values. 

— Find die next move, and follow die procms. 


which “ 


How the Program Works 

Like the other programs in this book, SNICKERS is built around a major 
loop, which is recycled over and over again until a particular condition is 
satisfied. Within that loop is a number of sub-routine calls. 

The action first goes to the INITIALISE routine, from line 2070. Here, 
several arrays are dimensioned. These are as follows; 

A to hold the board and the ‘off the board’ squares surrounding it. 

® as store for 'good, safe capture’ moves found during a sweep. 

S - as G, except the captures stored here are less desirable, being d«fincd 
as ‘safe’. 

T — this holds captures which are not classed by the program as either 
‘good, safe’ nor ‘safe’. 

The REM statements identify the variables that are assigned here, with E 
representing an empty white square, B the empty black square (shown on 
the display as a dot), C the computer piece and H the human piece. It 
makes sense to use variable names which will remind you of what the 
variable stands for, as we have in this case. HS holds the human score, and 
C3 the computer score, 

Lines 2210 to 2260 read the initia! board configuration into the A array. 

Oiir main cycle gives an indication of how the computer proceeds from this 
point. We will not look at how the board is printed, nor how human moves 
are accepted because these are trivial programming probiems. 

When the computer looks for its move, it follows — as we pointed out 
earlier — a striet hierarchy of moves, The program sets three variables, 
which are used each time the program cycles, to zero with lines 220 230 
and 240, 

Now the computer begins its first sweep of the board, jumping over the 
evaluation process <see line 320) if the square under consideration does not 
contain one of its own pieees. It may be worthwhile following the whole of 
this capture sequence through in detail. The REM statements explain the 
code fairly thoroughly. 


4g Note how the proposed move is stored in line 820 as a single number, The 
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Here’s the listing of SNICKERS; 

20 GOSUR H 5nTf RS ” V230 ° VERSION 
?? 2070:REM INITIALISE 

mJ J. 1 Z 5 ?£ HEM PRINT boabd 

REM ** MAIN CYCLE STARTS ** 
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50 GOSUB 190 : REM COMPOTES MOVES 
60 GOSUB 1760 J REM PRIHT BOARD 
70 IF CS>4 THEII 120 

80 GOSUB 1950:REM ACCEPT HUMAN MOVE 
90 GOSUB 1760:REM PRIHT BOARD 
100 IF HS<5 THEN 50 
1 10 REM *«***»ti»«» 

120 REM END OF GAME 
130 PHINTiPRINT "THE GAME IS OVER" 

140 PRIHT 

150 IF HS>CS THEN PRINT "YOU HAVE WON" 

160 IF CS>HS THEN PRINT "I'M THE WINNER" 
170 END 5 

180 REM **«*•*»•*•#§«• J/ 


8 '*?**6t 8 
7 n 0 C 


C 

C 


C 

C 


H 


a 

H 


a 


a 




' 4 
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190 REM COMPUTER MOVES 
200 REM #«****•#§«»#•* 

210 REM SEARCH FOR CAPTURES 
220 GSAFEaO 
230 CSAFEsO 
240 CCAPTURE =0 
250 FOR J =1 TO 3 
260 G(J)=0:REM EMPTY GOOD, SAFE CAPTURE STORE 
270 S(J)=0:REM EMPTY SAFE CAPTURE STORE 
280 T(J)=0:REM EMPTY OTHER CAPTURE STORE 
290 NEXT J 

300 FOR J= 80 TO 30 STEP -10 
310 FOR K=1 TO 8 

320 IF A(J+K) <>C THEN 390:REM NO COMPUTER PIECE HERE 


330 REM ** CAPTURE TO RIGHT »» 

340 X =J+K-9:Y=J+K-18:Z=J+K-27:M=-11 

350 IF A { X) = H AND A(Y)=B THEN GOSUB 700 :REM CAPTURE 
FOUND 

360 REM «* CAPTURE TO LEFT ** 

370 X = J+K- 11 :Y=J+K-22:2 = J+K-33:M=-9 

380 IF A (X) = H AND A(Y)= B THEN GOSUB 700:REM CAPTURE 
FOUND 

390 NEXT K 
400 NEXT J 

410 IF GSAFE+CSAFE+C CAPTURE = 0 THEN 980 :REM NO CAPTUR 
ES FOUND 

420 REM ** NOW CHOOSE CAPTURE TO MAKE ** 

430 PRINTiPHINT TAB{ 8 );">> CAPTURE FOUND" 


50 


440 FOR T =1 TO 1000;NEXT T 
450 IF GSAFEOO THEN 500 
460 IF CSAFEOO THEN 670 

470 REM ** CHOOSE FROM GENERAL CAPTURES ** 

480 MOVE=T(RND(CCAPTURE)) 

490 GOTO 540 

500 REM ** CHOOSE FROM GOOD SAFE •* 

510 REM •* SELECT FROM STORED MOVES ** 

520 MOVE=G(RND{GSAFE)) 

530 REM •• MAKE MOVE •* 

540 STARTsINT(M0VE/100) 

550 EDaMOVE-100*START 
560 A(START)a B 
570 A(START-ED)sB 
580 A(START-2*ED)=C 
590 CS=CS +1 

600 REM »* CHECK IF LANDING ON BACK HOW ** 

610 IF START-2*ED>18 THEN RETURN 
620 A(START-2*ED)rB 
630 CS=CS +1 

640 PRINT "I CAPTURED AND LANDED OH" 

645 PRINT START-2*ED;"ON BACK ROW" 

650 FOR T =1 TO 2000:NEXT T 
660 RETURN 

670 REM ** SAFE CAPTURE *• 

680 MOVE=S(RND(CSAFE)) 

690 GOTO 540 

700 REM ** CHECK PROPOSED CAPTURE FOR SAFETY *« 

710 REM CHECK SQUARE BELOW 

720 PRINT J+Kf"TO";Y;"CAPTURING ON";X 

730 FOR Tai TO 900:NEXT T 

740 IF A{Z)=H THEN 920:REM STORE AS A NON-SAFE CAPTU 
RE 

750 REM CHECK IN OTHER DIRECTION 

760 IF A(Y+M)= H AND A(Y-M) = B THEN 920 

770 REM CHECK IF PIECE EXPOSED 

780 IF A{J+K+M)=C AND A(J+K+2*M)=H THEN 920 

790 REM ** IF REACHED THIS POINT THEN CAPTURE IS »SA 

i 1 E* ** 

800 REM ** STORE THIS MOVE *« 

810 CSAFE=CSAFE +1 

820 S{CSAFE)=100*(J+K)+20+M:REM TO RECREATE MOVE 
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830 REM A 'GOOD SAPE' CAPTURE 
840 CHECKbOSAFE 
850 IF Y+2*M<7 THEN RETURN 
855 IF A(Y+M)OH THEN 870 

860 IF A(Y-(20+M))<>B AND A(Y+2*M)=B THEN GSAFE=GSAF 
E+1 

870 IF CHECKaGSAFE THEN RETURN:REM NOT 'GOOD SAFE' 
880 REM ** STORE GOOD SAFE MOVE »* 

890 PRINT "I AM CONSIDERING";J+Kj"TO";M+20+J+K 
900 G(GSAFE)s100*(J+K)+20+M 
910 RETURN 

920 REM ** STORE NON-SAFE CAPTURE ** 

930 CCAPTURE=CCAPTURE+1 

940 PRINT "I AM CONSIDERING";J+K;"TO";M+20 +J+K 
950 T{CCAPTUFE)=100*(J+K)+20+M 
960 RETURN 
970 REM 

980 REM ** MOVE TO PHOTECT PIECE UNDER THREAT ** 

990 MOVEaO 
1000 J= 80 
1010 K= 1 
1020 Q= J+K 

1030 IF A{Q)<>C THEN 1110 
1035 IF A(Q+9 ) <>B THEN 1050 

1040 IF A(Q-9) =H AND A(Q+18)=C THEN MOVE=100*(Q+18)+ 
0 + 9 

1050 REM RANDOM REJECTION OF MOVE 

1055 IF MOVE= 0 OR A(Q-9)<>H THEN 1065 

1060 IF A(Q+20) = B AND RND(2) = 1 THEN 1510 

1065 IF A(Q+9)<>B OR A(Q-9)<>H THEN 1075 

1070 IF A(Q+20)=C THEN MOVEa100*(Q+20)+Q+9:GOTO 1510 

1075 IF A(Q+1 1)<>B OR A(Q-11)OH THEN 1085 
1080 IF A(Q+22 ) = C THEN MOVE=100 *(Q+22)+Q+11 
1085 IF K0VE = 0 OR A(Q+2)<>H THEN 1095 
1090 IF A(Q+22) = B AND RND{2) = 1 THEN 1510 
1095 IF A{Q+11)OB OR A(Q-11)<>H THEN 1110 
1100 IF A(Q+20)=C THEN MOVE=100*(Q+20)+Q+11:GOTO 151 
0 

1110 IF K<8 THEN K=K+1:GOTO 1020 
1120 IF J>10 THEN J=J-10:GOTO 1010 
1130 REM •***••*«»•*•**•••«»*•**•**«« 

1140 REM NO CAPTURE FOUND 
1150 MOVE= 0 
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1170 TF M i?o3f 5 £ IiABLE «OVES FIRST 
1180 IF AND A(11)=B THEN MOVE=22 

1190 IF it ll l'r AND THEN M0VE=28 

1200 IF i\ll = r AC, 3) = B THEN M0 VEs22 

1210 IF f ND A{17)sB THEN MOVE=26 

1220 IF A(PA I AC15)=B THEN M0VE = 26 

1230 IF illi '' AND At15 > aB THEN M0 VEb24 

1240 IF HD Af1 3J= B THEN MOVE = 24 

IF MOVEaO THEN 1310 

1260 FOR 1, t : 5 >R ™ T 1,10 BACK fi0M f B0M"jMOVE 
r?w n 3; T0 H000:NEXT T 
1270 A(MOVE)bB 

1280 CSbCS+1 
1290 RETURN 

1300 REM •**•**»*»**#«#*§#»#«#*,,,,,, 

1320 rMnwp # n 5 f FE ’ BON-CAPTURE MOVES «* 

1330 FOR^fln^n COtIKT M °VES FOUND 
IU, FQB J= 8 o to 30 STEP -in 
7340 FOR K= 1 TO 8 

1360 y F /i J n KK>C THEN 1460 

ii?» 

i^on !! A(X)OB THEN 1460 

1400 GOSUB Y 156o° R A(2)=H AMD A <Q>= b THEN 1460 

1420 Q^tKl2 1:r=J+K " 22:Z = J+K-2 ° 

™ f| X)OB t HEN 1460 

1450 GOSUB Y JS£o° R A(Z)=H AND ACQ)=b THEN 1460 
1460 NEXT K 
1470 NEXT J 

1480 IF CM0VE=0 THEN ifiqn 
1490 REM *« MAKE MOVE »* 

M®VE= T (INT(RND(1)*CMOVE)+1) 

B J AR T = IHT( MOVE/lio) 

1520 EDaMOVE—100"START 
1530 A(START)=B 
1540 A(ED)=C 
1550 RETURN 

1560 REM •* STORE MOVES »* 

1570 CMOVE=CMOVE+l 

1580 PHINT "C01ISIDEHXNG"; J+K; "TO n ;X 
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1590 FOR Tai TO 800:NEXT T 
1600 T(CMOVE)a10O*(J+K)+X 
1610 RETURN 

1620 REM *»Mimmt«*iiM*n»« 

1630 REM RANDOM NON-CAPTURE MOVE 

1640 PRINT "LOOKING FOR RANDOM, LEGAL MOVE" 

1650 L=0 
1660 L = L+1 

1670 Ja10*INT(RND(1)*8+1) 

1680 KalNTCRND(1)*8 + 1 ) 

1690 IF A(J+K)aC THEN 1720 
1700 IF L<200 THEN 1660 

1710 PRINT:PRINT "I CONCEDE THE G AME" : END 
1720 IF A(J+K-9) = B THEN MOVEa100»(J+K)+J+K-9:GOTO 15 
1 0 

1730 IF A(J+K-11)= B THEN MOVEa100*(J+K)+J+K-11:GOTO 
1510 

1740 GOTO 1700 
1750 REM ***•*•••*#* 

1760 REM PRINT BOARD 
1770 CLS 
1780 PRINT 

1790 PRINT "VZ300;";CS;" HUMAN:";HS 
1800 PRINT 

1810 PRINT " 12345678" 

1820 PRINT " « 

1830 FOR J=80 TO 10 STEP - 10 
1840 PRINT " ";J/10; 

1850 FOR K=1 TO 8 
1860 PRINT CHR$(A(J+K )); 

1870 NEXT K 
1880 PRINT J/10 
1890 NEXT J 

1900 PRINT “ " 

1910 PRINT " 12345678» 

1920 PRINT 
1930 RETURN 

1940 REM »***»**#•«§*»*«»* 

1950 REM ACCEPT HUMAN MOVE 
1 960 INPUT "MOVE FROM";START 
1970 IF A(START)<H THEN 1 96 0 
1980 INPUT " TO";ED 

1985 IF A(ED)<>B THEN 1980 
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1990 IF ABS(START-ED)>11 AND A({START+ED)/2)<>C THEN 
1980 

2000 A(START)=B 
2010 A(ED)=H 

2020 IF ABS(START-ED)>11 THEN A(<START+ED)/2)=B:HSaH 
S+1 


d.ut’} ir ajb;h axjucj-jsw; >1 1 THEN PRINT "WELL DONE" 

2030 IF ED >80 THEN A(ED)=B:HS=HS+ 1 :PRINT "ONE MORE" 

2040 FOR Tai TO 700:NEXT T 

2050 RETURN 

2060 REM ***•«»*••* 

2070 REM INITIALISE 
2090 CLS 

2110 DIM A{110):REM BOARD AND BLANK SPACES AROUND AN 
D BEYOND IT 

2120 DIM G{3)i HEM GOOD, SAFE CAPTURE STOHE 
2130 DIM S(3)!REM SAFE CAPTURE STORE 
2140 DIM T(18}:REM OTHER CAPTURE STORE 
2150 E = ASC<" "}:REM EMPTY 'WHITE' SQUARE 
2160 BaASC("."):REM EMPTY 'BLACK' SQUARE 
2170 C=ASC("C"):REM COMPUTER PIECE 
2180 H=ASC("H"):FEM HUMAN PIECE 
2190 HS=0:REM HUMAN SCOSE 
2200 CS=0:REM VZ300 SCORE 
2210 REM ** SET UP STARTING BOARD 
2220 FOR J=10 TO 80 STEP 10 
2230 FOR K = 1 TO 8 
2240 READ X:A(J+K)=X 
2250 NEXT K 
2260 NEXT J 
2270 RETURN 

2280 FEM ***«•«**######§«*##•#»§» 

2290 DATA 72,32,72,32,72,32,72,32 
2300 DATA 32,72,32,72,32,72,32,72 
2310 DATA 46,32,46,32,46,32,46,32 
2320 DATA 32,46,32,46,32,46,32,46 
2330 DATA 46,32,46,32,46,32,46,32 
2340 DATA 32,46,32,46,32,46,32,46 
2350 DATA 67,32,67,32,67,32,67,32 
2360 DATA 32,67,32,67,32,67,32,67 
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Part Five — 

The Wider Value of Games 


It was argued, in the earliest days of AI research, that game-programming 
was not a worthy pursuit. It was suggested that the effort beingput into 
chess-playing algorithms, for ex ample, could better be spent on devices to 
prove mathematical theorems or on programs which modelled the way (to 
the extent it was understood at that time) the human brain operated, 

But the means by which a brain arrives at a solution to a complex problem 



— such as that presented by a chess board in mid-game — has been of 
continual fascination. Long before computers (as we understand fchem) 
existed, men were thinking aout how a chess program could be written, 

Back in 1949, Claude Shannon (whose work with relays and logic is 
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ability of the human operators, as the Malone Committee Beport on the 
accident pointed out: 


... the operator was bombarded with displays t waming lights, print- 
outs and so on to the point where the detection of any error condiUon 
and the assessment of the Hght action to eorrect the condiUon was 
impossible .,. 

A computer expert which could cut through ali the input to pinpoint what 
was important, and suggest a course of action, would have been invaluable 
in that situation. 

It seerns probable, then, that the expertise gained from working on such 
programs as one is to play chess, can produce payoffs in other areas of AI 
development, 

The advances gained in this way are not always as might be predicted, For 
example, chess programs have been written which (a) try to emulate the 
way human beings play chess; and (b) simply try to play as well as 
possible. It has been found that programs which seek to act like human 
players do not, on the whole, play as well as machines acting in their own 
besfc interests. 

There are two lessons from this- One is that attempting to model human 
thinkmg pattems onto a machine may not be the best routine to foliow to 
elicit the highest possible levels of AI performance. The second is that, 
from attempting to produce a program which behaves like a human being, 
we can gain some genuine insights into the way human minds behave. 

Other Games, Other Lessons 

Of course, chess was not the only game in town in the early days of work on 
artificial intelligence. For example, checkers and tic-tac-toe were other, 
early candidates for attention. 

Earlier, we discussed the work of Arthur Samuel on developing a checkers 
program which could leam as it played, Samuel had no appreoation of the 
problema involved in writiug a checkers program when he first began. he 
told Pamela McCorduck (in Machines Wko Think, San Francisco: W* H. 
Freeman and Co*, 1979; pp. 148, 149) that his checkers program began in 
1946 when — after working for Bell - he went to teach at the University of 
Illinois, 
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they could get other funds. ’ ° m the publjci ty that wouId generate, 

^eveSlmpufer By championship time, 

P ter much less the checkers program - was complete. 

wSing^rchesfSo ° f cbeckers . because he l™» other groups were 
trivial gl i rr 011 mth CheSS ’ he re * arded checkers as a 
REASONING sect on of t>ThnT 366 fr ° m the ^ARNING AND 
Noughts and Crosses has ^ 

eff^r^oughout°the S hist 0t ^ think ° f a game such as Ga Much 

WesTdra-t^SS^ut neIri hiS ii°f 6 ‘ S pUrely cul tural. Most of us in the 
with chess. The second rea Y ^ °£ US bave at lest a pa9sitl ® acquaintance 
field, such as SI 7%T * ^ ™rk e rs in the 

exploring. And the third rp f hann0n ’ ^«hhghted chess as an area worth 
(in‘Go', his contributtn ^ r ° n ' ° Ut f ° rCefuIly by J ‘ A ' Campbell 

edited by M. A Bramer **£****&** Theory and Practice, 
1983; p. 136 ) is that it h ' Cbche fer, West Sussex: BUis Horwood Ltd„ 

to mito ■ ■*-»» 

squares^orTthe "" w ^ ere fc he relative values of various 

2ESSS tabula “ d - may re "-”" d "S 

respond to «l.ss hamtV.H , h ? , b °f 9Uggeated th,t Go ' »01 only 
of chess as the nlHm f ted approach ' lodeed, ‘Go’ may well take the place 
op. cit p 177 ) mate test for A) (see Da « d Brown, Seeing is Believing, 
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Part Six — 

Understanding Natural Language 

There is little doubt that the ability of computers to onderstand 'natural 
language’ (that is, the ordinary language we use for human 
communicationi is an ability upon which the intelligence or otherwise of 
computers can be, and will be, judged. 

The mability of a computer to converse in our ordinary* everyday tongue 
at the very ieast sets up a barrier between the computer and ourselves. And 
such a barrier impedes our willingness to grant the computer a degree of 
intelligence, 

There have been a couple of landmark programs in this field, and m this 
section of the book we will look at programs which will allow you to 
experience at Ieast some of the excitement created by the original 
programs. The landmark-prograras were SHRDLU (our version is called 
BLOCKWORLD) and ELIZA, 

In the original SHRDLU* a ‘robot* manipulated coloured blocks and other 
shapes* in response to natural language orders. It was able to carry oufc a 
superb conversation as to what is was currently domg, and why* and what 
it did in the past. 

ELIZA t an imitation psychiatrist (after the style of Cari Roger s) was so 
effective and startling when it was first written that its creator reports 
receiving anguished telephone calla from people desperate for a little more 
access to the program to sort themselves out. 

As well as BLOCKWORLD* we’U look at the problems and potential of 
machine translations. A fairly trivial program (TRANSLATE) is included 
in this section which generates sentences on your VZ300 in ‘Franglais 1 to 
illustrate the kind of Solutions less-than-intelligent computers can reach 
when trying to handle not one, but two, natural languages. 

HANSHAN* the final program in this section on language handling* 
creates random poems. This is a fairly low-level program compared to the 
others in this book, and one which — you may argue — hardly gives 
evidence of the brainpower of the computer which is running it. However, 
if you had read the preceding line some 30 years ago* with an author 
making an offhand remark about a low-cost machine being able to write 
poetry* foilowed by him or her dismissing this achievement as being fairly 
insigmficant* you would have been amazed. Thirty years ago it may have 


been an earth-shattering event. Proximity to wonder has blunted our 
perception and appreciation of it. 


However, some of the results produced by the programs in this section 
s ould lnvoke at Ieast an approximation to wonder. Before we get to the 
pomt ofchscussing and running the programs, we need to look a little at 
some of the problems which impede perfect communication between ™n 
and machine m natural language. 

Language Parsing 








- -- ,4 "™ ““ uieeuuHg up oi sentences mto 

elementa which a computer can manipulate. The field of computational 
Imguistics had traditionally researched ways of parsing sentences in order 
o reveal the role of various parts of the sentence in relation to their 
syntax. fhis is done, of course, in the hope that the machine doing the 
parsing can approximate an understanding of the sentence hem g 


However, there is now a growing interest in seeking meaning in terms of 
the sentence s role within a much wider frame of reference (such as we 
bring to bear, in terms of prior experience and knowledge of the 
enviromnent, when attempting to understand a sentence). Of course, while 
research based on syntactic structure is continuing, the thrust towards 
world view environment " approaches is increasing. 


It IS pretty obvious why this is so. We want to be able to talk to computers 
on our own terms, rather than those dictated by metallic language limita. 
When we talk about a field which interests us, to friends with a similnr 
interest, we can assume a great deal of commonly-shared background 
knowledge. In a similar way, we would like to be able to talk to computers 
when we can assume the existence of a particular knowledge base within 


* " .& , ivuiidvea computer program which 

Wili assi st you in searching out predous minerals (at Ieast one such 
program, PROSPECTOR, does exist). You would like to be able to talk to 
it in the words and phrases which are generally used by you when ‘talking 
mimng with your colleagues. 


11 comes down to an effort to give a computer a 'world view’ which will 
enable it to mterpret natural language input, using the knowledge it has as 
a Kind of template against which possible meanings can be checked. 


YouTl discover, in this section of the book, that the only convincing 
demonstrations of ‘natural language communication' we can give are for 
extremely restricted 'world views’. In BLOCKWORLD, for example, the 
world consists of a two-dimensional space, within which your computer 
manipulates four coloured blocks. However, the computeris performance 
within that limited universe is fairly startling, even if it does not reach the 
dizzy heights of SHRDLU, the program which inspired it. 

As you ll discover when you run this program, there is powerful magic in 
eommunicating in English (a very limited subset, admittedly, but English 
nevertheless) with a computer, and having it both foliow your instructioris, 
and talk back to you in plain English as weO. 

In the eariy days of AI, much time was spent asking whether or not a 
program really understood what was going on. It was felt that even 
programs such as SHRDLU or ELIZA, while they gave convincing 
impressions of intelligent behaviour, didn’t realy get us any doser to ‘real p 
intelligence (whatever we assume that actually is). 

This concera has losfc much of its potency today. We do not spend time 
asking if a robot spotwelder working on a car assembly line can 4 really 
see’ what it is doing, or 4 takes salisfaction' in a job well dane. It is 
important that the thing works. If t as we will find to some extent in this 
section on language handling, the computer can handle language 
effectively, as though it 'really' understood what it was hearing and 
saying, this is more than enough in many srtuations. 

There are a number of major problems which AI researchers are grappling 
with in an attempt to solve the mysteries of natural language processing, 
The enormous number of words in any human language, and the 
bewildering array of ways in which those words can be combined, is the 
major, and most obvious, stumbling block, Many phrases within a 
sentence are ambiguous. FVom prior knowledge, we can generally cut 
through the ambiguity to get at the meaxiing. Ambiguity is often inherent 
in speaking — perhaps more so than in written communication — and the 
spoken word is often incomplete and almost totally unstructured. 

Each additional task a computer is given increases the processing time. A 
natural language system must not demand so much time that the process 
becomes useless in human terms. If it takes your computer a week to 
‘understand' a paragraph, youYe not going to spend much time 
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investigating its ability to communicate with you. 

Syntax and Semantics 

These are the two approaches to the field of language parsing. They are not 

m Mi?™' 1 ' tanp&ge use. Even working out which peraon 'he’ refers to 
m the following sentence may take you a moment or two: 

THE MAN WHO WAS WITH PETER SATO HE WAS TffiED 

*“'■“-•<>»«■to 

^5S"S !an &“age parsing system must be able to deal with problems 
^ argarSt ®° den (in Arti ficial Intelligence and Natural Man, 

Pr6SS ’ 1977; p ' 112 > & ves th e delightful 
. . Archbishop s Problem” to the difficulty of automatically 

signmg such words. Her source for this name is Alie e in Wonderland- 

aSbl^fT** thC partriotic ^'hbishop of Canterbury, found it 
“Found what?” said the duck. 

‘JmeMs?” them ° USerCPliedrather CrOSSly ’ “ Surel y y° u what 
2JTLS- ‘U’ means well enough when I find a thing,” said the 

^chbilp g f“d? y * fr °* " ‘ W0 ™- The q "“ tio " '*• wh ««“ 

Letjs have a look at the sentence now, and see how a parser might snlit it 

an Sder.r*? 1 ® “? r d thr0Ugh itS processor in “der to approximate 
l the WFiting anal > rsed ' (Then we’U examine the 
important question of how ‘understanding’ is defined). 

Here is the sentence: 


THE OLD THIN MAN IS UNDER THE OAK TREE 
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We can look at the sentence syntactidy (with each syntactic element of the 
structure bound within parentheses) as foUows: 

[[THE [[OLD] [[THIN] [MAM]]]] 

IS [[UNDER] [THE [[OAK] [TREE]]]]] 

Look at this carefully, following the binding, and you may get a reasonable 
impression of the various elementa which are thus bound together, For 
example, the words THIN MAN are individually bound, as [THIN][M AN] 
and also bound together in a larger group [[THIN][MAN]]. 

The adjective OLD modifies the noun, as well as THIN does, so it is bound 
in a similar way as [[0LD][THIN]{MANJ]], except this binding sees a 
‘strongeri link between THIN MAN than between OLD and MAN, There 
is a further bond around the entire left hand side of the sentence [THE ... 
MAN]J]] with the linking verb IS only bound by the parentheses which 
hold the entire sentence. 

If we look at the right hand side, we can see that UNDER is held within 
the same bond as THE E, as a pair of parentheses bind the whole of this 
side. THE is not bound on both sides as are ali the other words, in 
recognition of the fact that its only purpose is to modify the following noun 
(and *the oak tree' is different, fairiy obviously, from *an oak tree’). 

We can express the syntactic structure of our sentence as a tree as follows: 



If we could get a computer to break a sentence down Hke this, able to 
recognize the parts of speech on each branch of the tree, and/or within the 


bonded pairs in our multi-parenthesised sentence, we would be well on the 
way to getting a degree of understanding. 

This brings us back to the question I raised a short while ago. What do we 
mean, in the machine context, by “understanding"? J. Klir and M. Valach 
(in Cybemetic ModelUng , London: Iliffe Books, 1966) suggest that 
understanding a spoken message is usually regarded to be a three-part 
thing: 


1* A way of ‘hearing’ the message. 

2* A means of responding to that message. 

3. A method for assessing whether or not the response (2) was such 
that it could be interpreted as showing understanding had taken 
place, 

There could be several ways of assessing the understanding of written 
text, claims Geoff Simons (in Are Computers AHve? t Brighton, Sussex: 
The Harvester Press, 1983; p. 129), These include supposmg that 
understanding has taken place if the computer can answer questions 
correctly on it, or noting whether the machine can make intelligent 
connections between its own prior knowledge base, and the Information it 
has picked up from its ‘reading*. 
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Part Seven — 

Blockworld 

Sometimes a computer ‘conversing’ in natur ai Bnglish (or an 
approximation to it) can produce a most unsettling effect In 
BLOCKWORLD, a simplified version of a famous program called 
SHRDLU (which IU discuss a little later), your computer manipulates a 
series of coloured toy blocks, foliowing your instructione, and telling you 
— from time to time — how the blocks are arranged in relation to each 
other. 

The blocks, of course, do not really exist, except as electromc figments of 
your computeris brain, However, you can see a representation of them on 
the screen, and this representation changes as the computer moves the 
blocks around. 

As you've certainly gathered by now, it is generally easier to obtaln a 
convincing demonstration of machine intelligence when the computer is 
operating within a limited domain. The domain of toy blocks is often used 
in Ai experiments because it is dearly limited, yet allows a considerable 
degree of interaction and manipulation, as you shall see. 

There are four blocks ia the universe, your computer will be manipulating 
with this program. The blocks are red (shown as the letter *IT), green {'G'), 
yellow (‘Y'} and blue (‘BT- 

When the program begins, you see this on your screen: 


, R YBG, 

You are looking at the blocks from the *front\ The BLOCKWORLD is 
essentially two-dimensionaL Although you can move blocks around, and 
put them on top of each other, you cannot put blocks 'behind 1 or *in front 
of otheT blocks. The dots are invisible to the computer. They extst only for 
your benefit* and show a position which a block can occupy. 

Although you have only a limited number of sentences you can use when 
communicating with the BLOCKWORLD, you*ll be pleased to see how 
convincing fchat conversation can be. As well, it makes an easy-to-explain 
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land impressive) demonstration of artificial intelligence in action to show 
your sceptical friends. 

The entire project boils down to sentence parsing to get the important 
parts of your commands* manipulation of elements within a two* 
dimensional array in response to instructions gleaned from the par sed 
input and, finally, printing out the array in a way which conveys the array 
contents so that they can be easily perceived. 

‘Explaining’ it in this way does not, of course, really detract from the 
impression of intelligence this program conveys, although 
BLOCKWORLD is a primitive creature corapared to its progenitor, 
SHRDLU. 

This program, which was finished in 1971 by Terry Winograd, not only 
manipulated blocks, but showed them on a screen in colour, creating the 
World as well as interacting with it. LeCs listen in as Terry speaks with 
SHRDLU (the computer output is in upper case letters, preceded by a > 
sign): 

Pick up the big red block. 

>0K 

Find a block which is teller than the one 
you are hoLding, and put it into the 
box. 

>GK 

What does the box contsin? 

>THE BLUE PYRAMID AND THE BLUE BOX 
What is the pyramid supported by? 

>THE BOX 

Is there a large block behind the 

py ramid? 

>YES, THREE OF THEM; A URGE RED ONE, A 
URGE GREEN CUBE, AND THE BLUE ONE 

As you can see, this is a remarkable effort and one which has led 
researchers to regard Winograd s work as one of the Mgh spots in the 
development of artificial language programs. Our BLOCKWORLD pales 
somewhat by compari son. 


However, BLOCKWORLD is stili capable of fairly involved manipulation, 
even if its output is not as complex as that produced by SHRDLU. 
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WeTI now look at the important elements of the program. 

Modules of the Program 

As with many other programs in this book, BLOCKWORLD starts off 
with a call to a subroutine at the end of the program which initialises the 
variables used. 

Firstly, (line 2500) a five by six array is used to hold the ‘world’. It is 
in itially filled (lines 2510 through to 2550) with 46, the ASCII code of the 
dot which is used to indicate a blank space in the world. The starting 
position of the blocks is given by lines 2500 through to 2590. You can see 
here that the program assigns the initial letter of the colour (‘R f for red, 
and so on) to the block of that colour. There is nothing very complicated in 
this first subroutine. 

Although the initialisation subroutine is called just once per program, 
another subroutine, COLOUR NAME, is called e very time the computer 
wishes to refer to a block. This subroutine changes the initial letter into the 
full name of the relevant colour, Both these subroutines are at the very end 
of the listing. 

Back at the start of the program from line 30, we find a short section of 
code which prints out the view of the blocks, This could well have been a 
subroutine, but as it is needed everytime the program cycles through the 
main loop, it seemed sensible to have it here, 

Line 50 shows that the view is printed 'upside down' with the ‘5 row' 
printed before the ‘4 row T and so on, with the T row f at the bottom of the 
scene, This was done to make it easier for the program to manipulate the 
blocks* It knows that it needs to look at a higher number to see if there is a 
block on top of the one it is considering. There would have been no real 
difficulty in doing it the other way (the lower the number, the higher the 
position of the block) but this seemed an unnecessary complication, 

The next section of code, from line 130, accepts the user^s input, and from 
it determines which subroutine shonld be called to act upon the input, 

Constructing an AI program leads one very quickly to appreciate the 
complexities of intelligence in operation, BLOCKWORLD operates in a 
very restricted domain, and reacts only to those situations which have 
been specifically allowed for. 
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Naturally enough, the program has to cater for each situation it is required 
to manage, After the complete program listing, we have a little more of 
Winograd's conversation with SHRDLU, to give you some ideas on how 
you can expand BLOCKWORLD, By keeping the program structured in a 
way similar to the present one, you '11 find you can add complexity without 
getting lost in a maze of coding, 

The only additional information you need is the input format dexnanded by 
the program, There are four questions you can ask, as follows: 

WHERE IS THE colour BLOCK (or ONE or CUBE or whatever you like)? 
TELL ME WHAT YOU SEE (or CAN SEE). 

SHUFFLE THE BLOCKS, 

PUT THE colour BLOCK ON THE colour ONE 

You can quit the program at any time {as indicated by line 150) simply by 
pressing RETURN, then you are prompted for a question/command. 

Here, now, is the listing of BLOCKWORLD ■ 


10 REM BLOCKWORLD - VZ300 VERSIQN 
20 G0SUB 2470:REM INIT1ALI3E 
30 REM ** PRINT OUT VIEW ** 

40 CL5:PRINT:FRINT 
50 FOR X=5 T0 1 STEP -1 
60 PRINT TAB(3); 

70 FOR Y=1 TO 6 
80 PRINT CHR$(A(X, Y)); 

90 NEXT Y 
100 PRINT 
1 10 NEXT X 
120 PRINT:PRINT 
130 INPUT A$ 

140 PRINT 

150 IF A$ = "" THEN END: REM END BY JUST PRESSING * RETU 
RN f 

160 IF LBFT$(A$,8)= n WHERE IS* THEN G0SUB 240 
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170 IF LEFT$(A$,12)="TELL ME WHAT" THEN GOSUB 1050 

180 IF LEFT$U$,7) = "SHUFFLE" THEN GOSUB 1280 

190 IF LEFT$(A$,7)="PUT THE" THEN GOSUB 1500 

200 PRINT:PRINT ">>>> PRESS <RETURN>";:INPUT z4 

210 GOTO 40 

220 END 

230 REM 

240 REM "WHERE IS THE" 

250 P=0 

260 B$=MID$(A$, 14, 1 } 

270 IF B$s"R" OR B$ ="Y" OR B$="B" OR B$="G" THEN 330 

280 IF RND(10)>7 THEN 300 

29.0 PRINT "I DON' T KNOW":GOTO 310 

300 PRINT "I CAN'T TELL YOU" 

310 RETURN 

320 REM •HIIHHtlHHI* 

330 M= ASC(B$) 

340 PRINT TAB(8);"> LET ME SEE NOW <" 

350 X=5 
360 Y=1 

370 IF A(X,Y)=H THEN 410 

380 IF Y<6 THEN Y=Y+1:GOTO 370 

390 IF X>1 THEN X=X-1:GOTO 360 

400 GOTO 280 

410 IF X>1 THEN 910:REM ON TOP OF ANOTHER 

420 IF Y>1 THEN 530:REM NOT ON LEFT 

430 REM *»#»*»**»*««(» 

440 REM ** ON LEFT ** 

450 PRINT "IT IS ON THE LEFT" 

455 IF A(1,2}<>46 THEN 4?0 

460 PRINT "NOTHING ON IMMEDIATE RIGHT"- GOTO 790 
470 Q=A(1,2) 

480 PRINT 

490 PRINT "BESIDE IT, I CAN SEE THE" 

500 GOSUB 2400 
510 PRINT "BLOCK" 

520 GOTO 790 

530 IF Y<6 THEN 650 

540 REM #«»«*«*»**t*# 

550 REM ** ON RIGHT >• 

560 PRINT 

570 PRINT "ON THE RIGHT HAND SIDE" 
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575 IF A{1,5)046 THEN 590 

580 PRINT "NOTHING TO IMMEDIATE LEFT":GOTO 790 
590 PRINT "TO ITS LEFT I SEE THE" 

600 Q = A(1,5) 

610 GOSUB 2400 
620 PRINT "ONE" 

630 GOTO 790 

640 REM *»•«•§*»•«••• 

650 REM *• MIDDLE •* 

660 PRINT 

670 PRINT Y;"FROM THE LEFT" 

675 IF A(X,Y-1)0 46 THEN 690 

680 PRINT "NOTHING ON IMMEDIATE LEFT":GOTO 730 
690 Q=A(X,I-1) 

700 PRINT "THE "; 

710 GOSUB 2400 

720 PRINT "BLOCK IS TO":PRINT " ITS IMMEDIATE LEFT" 
725 IF A(X,Y+1)046 THEN 740 

730 PRINT "NONE TOUCH IT ON RIGHT":GOTO 790 
740 Q= A(X,Y+1) 

750 PRINT:PRINT "I CAN SEE THE 
760 GOSUB 2400 

770 PRINT "BLOCK":PRINT " TO ITS RIGHT, TOUCHING IT 

it 

780 REM t#»**»»»»»»»»"»»»*»»» 

790 REM «« ANYTHING ABOVE? •* 

800 PRINT 
810 P=X 

820 IF X=5 THEN 910 

825 IF A { X+1 , Y) 046 THEN 840 

830 PRINT "NOTHING ABOVE THAT":GOTO 310 

840 PRINT "ABOVE IS THE 

850 Q = A(X +1,Y) 

860 GOSUB 2400 
870 PRINT "BLOCK" 

880 X=X+1 
890 GOTO 820 

900 REM **»*»•**•*«*«•»«»«•»«•** 

910 REM ** ON TOP OF ANOTHER? •» 

920 IF POO THEN X = P 
930 PRINT 

940 IF X=1 THEN 310 
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950 PRINT "IT IS 

960 PRINT "ON TOP OF THE 

970 Q=A{X-t,Y) 

960 GOSUB 2400 
990 PRINT "BLOCK" 

1000 X = X-1 

1010 IF X<2 THEN 310 
1020 GOTO 960 
1030 RETURN 
1040 REM 

1050 REM "TELL ME WHAT" 

1060 PRINT "STARTING FROM THE RIGHT" 

1070 Y = 6 
1080 X = 5 

1090 IF A(X,Y)<>46 THEN 1150 

1100 IF Y=1 AND X=1 THEN PRINT "FINALLY »; 

1105 IF XOI OR A(X,Y)<>46 THEN 1120 

1110 PRINT "...A SPACE ";;IF Y>1 THEN PRINT "THEN" 

1120 IF X>1 THEN X=X-1:GOTO 1090 

1130 IF Y>1 THEN YbY-1 :GOTO 1080 

1140 RETURN 

1150 L= RND(3)-1 

1160 IF L=0 THEN PRINT "IT'S THE ";:GOTO ligo 

1170 IF L=1 THEN PRINT "MY SENSORS REGISTER THE ";:G 

OTO 1190 

1180 PRINT "I SEE THE 
1 1 90 QsA(X,Y) 

1200 GOSUB 2400 
1210 PRINT "BLOCK" 

1220 IF X =1 THEN 113 0 
1230 X=X -1 

1240 PRINT "...AND BELQW IT..." 

1250 GOTO 1180 
1260 RETURN 

1270 REM **»«»***»••«##«#»* 

1280 REM SHUFFLE THE BLOCKS 
1290 PRINT 

1295 IF HND( 2 ) =r 1 THEN 1310 

1300 PRINT "IT 1 S ABOUT TIME, TOO":GDTO 1320 
1310 PRINT "IT'S GOOD TO":PRINT "DO WHAT I WANT" 

1320 FOR X=1 TO 5 
1330 FOR Y=1 TO 6 
1340 A(X,Y)=46 
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1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1505 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 


1300 


Y3=Y1 THEN 1400 

Y4=Y2 OR Y4=Y1 THEN 1420 


ON THE 


NEXT Y 
NEXT X 
Yt aRND(6) 

Y2s RND(6) 

IF Y2sY1 THEN 
Y3=RND(6) 

IF Y 3 sY 2 OR 
Y4=RND(6) 

IF I4=Y3 OR 
A<1,Y1)=82 
A(1,Y2}b89 
A(1,Y3)=66 
A(1,Y4)*71 
RETURN 

REM *••»*•»■* 

REM "PUT THE ... BLOCK 
IF RND{2)s1 THEN 1520 
PRINT TAB(8);"I UNDERSTAND" 

PRINT TAB(8);"OK" 

$i9,1):REM OBJECT BLOCK 
IF B$="R" THEN L=26 
IF THEN L=27 

IF B$="G" THEN L=28 
IF B$="Y" THEN L=29 
C$=MID$(A$,L,1) 

B=ASC(B$) 

C= ASC(C$) 

FLAG = C 
REM ** FIND 
X=5 
Y= 1 

IF A(X,Y)=B 
IF Y<6 THEN 
IF X>1 THEN 


ONE" 


GOTO 1530 


NHERe 


IS 


THE 


BLUE 


> LET 


**•*. ’ 

■• t9 0 ; 

ONE 


ME 


S£ F NON < 


B$ BLOCK »* 


4 FROM THE LEFT 
THE YELLOW BLOCK IS TO 
ITS IMMEDIATE LEFT 


THEN 1740 
Y=Y+1:GOTO 
X=X-1:GOTO 


PRINT 
Q = B 

GOSUB 2400 
PRINT "ONE..." 

FOR T=1 TO 2000 
RETURN 
R = X:S = Y 

HEM «« OBJECT BLOCK IS 
REM ** is TARGET BLOCK 


"I CAN•T FIND THE " 


: NEXT T 


1650 

1640 


AT R,S 
CLEAR? 


** 

## 
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1770 IF A(R+1,S)=46 THEN 1920:REM 'YES' 

1780 IF A(R+2,S) = 46 THEN TASK=1:GOTO 1800 
1790 TASK=3:IF A(R+3,S)=46 THEN TASK=2 
1800 FOR W=TASK TO 1 STEP -1 
1810 PRINT "I MUST MOVE THE "j 
1820 Q=A(R+W,S) 

1830 GOSUB 2400 
1840 PRINT "BLOCK" 

1850 DE = RND C 6) 

1860 IF DE= S OR A(1,DE)= C OR A(2,DE)=C OR A(3,DE)=C 
THEN 1850 ' * 

1870 PRINT "MOVING IT TO";DE 
1 880 L= 1 

1890 IF A(L,DE)=46 THEN A(L,DE)=A(R+W,S):A £R+W,S)=46 
:GOTO 1910 ’ 

1900 L = L+1:GOTO 1890 
1910 NEXT W 

1920 REM TARGET BLOCK AT R,S NOW OLEAR 
1930 REM *» IS OBJECT BLOCK OLEAR7 ** 

1940 REM »»» FIND OBJECT BLOCK »*» 

1950 X=5 
1960 Y= 1 

1970 IF A(X,Y)=C THEN 2070 
1980 IF Y<6 THEN Y=Y+1:G0T0 1970 
1990 IF X>1 THEN X=X-1:GOTO 1960 
2000 PRINT "CAN’T FIND THE "; 

2010 Q=C 

2020 GOSUB 2400 

2030 PRINT "BLOCK" 

2040 FOR J=1 TO 2000:NEXT J 
2050 RETURN 

2060 REM ** C HAS BEEN FOUND »* 

2070 T=X:U=Y:REM LOCATION OF C 

2080 IF A(T+1,U)=46 THEN 2260 

2090 IF A(T+2,U)=46 THEN TASK=1:GOTO 2110 

2100 IF ACT+3,H)=46 THEN TASK=2 

2110 DE=INT{RND(1)*6)+1 

2120 IF DE = U OR DE=S THEN 2110 

2130 FOR W= TASK TO 1 STEP -1 

2140 PRINT "NOW I'LL MOVE THE 

2150 Q = A{T+W,U) 

2160 GOSOB 2400 


74 


2170 PRINT "ONE" 

2180 PRINT 

2190 PRINT " I ’ M MOVING IT TO R0W";DE 


2200 L= 1 

2210 IF A C L,DE)s46 THEN A(L,DE)=A(T+W,U):A(T+W,U)=46 
:GOTO 2230 

2220 LsL+1:GOTO 2210 
2230 NEXT W 

2240 REM ** OBJECT BLOCK NOW OLEAR •» 

2250 REM »• MAKE THE MOVE ** 

2260 PRINT " I' M NOW MOVING THE "j 
2270 Q=A(R,S):2=A(R,S) 

2280 GOSUB 2400 
2290 PRINT "ONE" 

2300 PRINT " ONTO THE 

2310 IF A(T,U)=46 THEN A ( T, U)=FLAG 

2320 Q = A C T,U) 

2330 GOSUB 2400 
2340 PRINT "BLOCK" 

2350 A(R,S)=46 
2360 A(T+1, U) = Z 


2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 


FOR J=1 TO 2000:NEXT J 


RETURN 

REM «****«»**» 

REM COLOR NAME 

IF Q=ASC("R") THEN PRINT "RED 
IF Q=ASC("Y") THEN PRINT "YELLOW 
IF Q = ASC( "B" ) THEN PRINT "BLUE 
IF Q=ASC("G") THEN PRINT "GREEN 
RETURN 

REM ********** 

REM INITIALISE 


CLS 

DIM A(5,6) 

FOR X=1 TO 5 
FOR Y=1 TO 6 
A(X,Y)=46 
NEXT Y 
NEXT X 

A(1,2)=ASC("R"J:REM RED BLOCK 
ACI,3)=ASC("Y");REM YELLOW 
A(1,4)=ASC("B"):REM BLUE 
AC 1,5)=ASC£"G"):REM GREEN 
RETURN 
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*...*•* 


Although BLOCKWORLD performa quite creditably in its present form, 
there is much that can be done to it to develop it. As you have seen, it has a 
simple modular structure, with a single subroutine to cope with each 
of command given to it. Therefore, to increase BLOCKWORLD’s abilities, 
you can add to the simple vocabulary recognition section at the start of the 
program, and use this to send action to new subroutines. 

You could start, perhaps, by giving BLOCK WORLD the ability to move a 
block to the right, or to the left, rather than just ‘on top of’ another block. 
Once you’ve managed to do this (and made sure it has a means of rejecting 
‘impossible’ demands, such as trying to put a block to the right of one 
which is already at the very right-hand end of the frame), you could try 
adding a fifth block, or perhaps a shape — or more than one — which is not 
a block at ali. Finally, you could create your own BLOCKWORLD 
program from scratch* in which the blocks and other elements can be 
moved in three dimensions, so ‘in front of’ and ‘behind’ are valid 
commands. 

To give you some ideas of what can be done, we’ll look at some more 
conversation with the landmark program, SHRDLU, written by Terry 
Winograd. The brief portion of conversation given earlier in this section 
was extracted from the longer conversation which follows. First of ali, 
here’s a sketch showing the situation under discussion: 


MOVING ?i V L*XS T Q*i 8K 

1 mLI° 6 BN Bloc k 

£bs Sv «« 


y. '•<& 

’ ■ Jio 



Let the conversation continue: 


Pick up the big red block. 

>0K 

Grasp the pyramid. 

>1 DON'T UNDERSTAND WHICH PYRAMID YOU 
MEAN 

Plnd the blook which is taller than the 
one you are holding and put it into 
the box, 

>BY "IT", I ASSUME YOU MEAN THE BLOCK 
WHICH IS TALLER THAN THE ONE I HAVE 
>QK 

What does the box contain? 

>THE BLUE PYRAMID AND THE BLUE BLOCK 
What is the pyramid supported by? 

>THE BOX 

How many blocks are not in the box? 

>FOUR OF THEM 

Is at least one of them narrower than the 
one which I told you to pick up? 

>YES, THE RED CUBE 
Is it supported? 

>YES, BY THE TABLE 
Can the table pick up blocks? 

>N0 

Can a pyramid be supported by a block? 

>YES 

Can a pyramid support a pyramid? 

>1 DON-T KNOW 
Stack up two pyramids. 

>1 CAN'T 

The blue pyramid is mine. 

>1 UNDERSTAND 

Impressive as this is it fades almost into insignificance when compared 
f Which includes ^ «anipulation which even 

SStaKhEE Mow - This »» 

I own all the blocks which are not red 
but I don't own anything which 
supports a pyramid. 

>1 UNDERSTAND 






















Do I own the box? 

>N0 

Do I own anytbing in the box? 

>YES, TWO THINGS: THE BLUE BLOCK AND 
THE BLUE PYRAMID 

Will you please stack up both of the red 
blocks and either a green cube or a 
pyramid? 

>0K 

Which cube is sitting on the table? 

>THE LARGE GREEN ONE WHICH SUPPORTS THE 
RED PYRAMID 

Is there a large block behind the 
pyramid? 

>YES, THREE OF THEMi A LARGE RED ONE, A 
LARGE GREEN CUBE AND THE BLUE ONE 
Put the small one onto the green cube 
which supporta a pyramid. 

>CK 

Put the littlest pyramid on top of it. 

>0K 

How many things are on top of green 
cubes? 

>I’M NOT SURE WHAT YOU MEAN BY "ON TOP 
OF" IN THE PHRASE n 0N TOP OF GREEN 
CUBES" 

>DO YOU MEAN: 

1 - DIRECTLY ON THE SURFACE 

2 - ANYWHERE ON TOP OF? 

2 

Had you touched any pyramid before you 
put the green one on the little cube? 
>YES, THE GREEN ONE 
When did you pick it up? 

>WHEN I WAS STACKING UP THE RED CUBE, A 
LARGE RED BLOCK AND A LARGE GREEN CUBE 
Why? 

>TO GET RID OF IT 
Why did you do that? 

>T0 CLEAR OFF THE RED CUBE 
Why did you ciear off that cube? 

>TO PUT IT ON A LARGE GREEN CUBE 


78 



Why did you do that? 

>TO STACK UP THE RED CUBE, A LARGE RED 
BLOCK AND A LARGE GREEN CUBE 
Why did you do that? 

>BECAUSE YOU ASKED ME TO 


add that? Now that y° u ’ ve seen what SHRDLU and 
BLOCK WORLD can do, go and do likewise. 
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Part Eight — 

Machine Translation 

It wauld seem — when thinking about some of the possibilities that arise 
from machines being able to understand and process natural language — 
that computers could be of great value in helping as translate from one 
human language to another, Such a hope has been with us since the early 
fifties, and a great deal of progress has been made in the field, 

There are now more than 20 machine translation (MT) Systems in use 
around the world. But, contrary to popular opinion, these systems do no 
work on a SHOVE IN THE DOCUMENT IN ENGLISH IN ONE SLOT 
and GET THE FRENCH VERSION OUT OF ANOTHER basis* MT is 
more subtle, and more involved* In fact t there are several subfields within 
the overall domain of MT* 

Stili a Use for People 


Although, in the early days of building MT systems, it was accepted 
(probably without too much thought) that human translators would 
eventually prove redundant as machines became more skilled, researchers 
have now confirmed that at present (and for the immediate future) the role 
of human translators is vitat Specialists in the field now talk about 
'machine pre-translatiofr, with the documents produced by MT systems 
being seen as simply rough working drafts of the final, translated works. 

There are several different approaches to MT which are in use at present, 
These include systems which have been built with the idea of translating 
documents written in a king of 'stripped-down 1 , limited version of natural 
language, or documents which have been edited to make them easier for 
the machine to handle before they are fed to it, Xerox have a system of this 
type, called SYSTRAN, Well be looking at some output produced by 
SYSTRAN (working on documents for the EEC) in due course* 

Another approach is one where the user can modify the system to his or 
her own needs, giving it a vocabulary to suit the speciality in which the MT 
will take place. Such a system, called CULT, is currently m use in Hong 
Kong where it translates Chinese mathematical joumals* The direct 
printout of the machine is bound and sold to libraries around the world* 

When you and I, as laymen, have thought about MT, it is likely that we 
have envisaged machines which will perform in a STICK ENGLISH IN 
THE INPUT, GET FRENCH FROM THE OUTPUT mode, and this is 


the eventual goal of those developing MT* It is far from being realised at 
present. However, the SYSTRAN system — mentioned a short time 
ago as working with documents written in ‘sub-Eng!ish\ or ones which had 
been pre-edited — can be used in a ‘freelance' mode, in which it will tackXe 
any document which is fed into it* The success achieved has varied from 
document to document* 

Many documents go through a pre-editing stage before being offered to a 
machine for translation. In this stage, an attempt is made to weed out 
potential ambiguities, and other aspects of the text which could trip up a 
machine. Many documents (most, in fact) need to have be post-edited. In 
this stage, a check is made for genuine errors by the machine, and syntax 
is cleaned up, 

Some documents do not need to be post^edited* For certain purposes* the 
rough output direct from the MT system may be enough, 

MT may also be carried out with the assistance of a human translator, 
intervening in the work while the translation is underway. 

As you can see from the above, the role of the human is stili vital in the 
translation process. And there is no indication that this will change in the 
near future* Machines can do the rough and ready pedestrian work of 
translation, but human polishing and correction is stili needed* 

Let F s look at a genuine example of machine translation. This comes from 
an EEC document, translated from French to English by the SYSTRAN 
system in 1981. 

Here is the start of the document in French: 

Application de ia micrologique au controle des 
operations de production, 

But de Ia recherce: 

Perfectionner Ies appareillages existants de 
sorte que Ies preposes soient debarasses des 
taches dans lesquelles leur jugement nlntervient 
pas. 

Application au Central de telesurveiflance 
d’engins sur pneus. 


The machine responded with this translation: 


Application of micrological to the control of the 
production operations. 

Aim of the research: 

To improve existing equipments so that the 
officials debarasses tasks in whieh their judge- 
ment does not intervene. 

Application to the exchange of tetesurveillance of 
equipment on tyres. 

Alfchough this ia pretty rough, a fair amount of the meaning comes 
through. The ‘debarasses 7 whieh survives in the English translation is f in 
fact, due to a spelling error in the French original [it should have been 
‘debarrasses’ whieh, presumably, the machine would have understood), 

After the homan post-editing* the document read as follows: 

Application of microiogy to the monitoring of 
production operations, 

Aim of the research; 

To perfect existing apparatus so that staff can be 
relieved of tasks where no judgement is required, 

Application to the remote monitoring station for 
trackless yehicles. 

I find it fascinating to follow through the way the document has evolved, 
Apart from the final line, the final version of the English text is not wildly 
different from SY STRA N original output, 

Not all of the document was as successfully translated. The human post- 
editor took a savage pen to one line further down the text, reducing the MT 
output to a shadow of ita former self. 

Here’s what the machine printed out: 
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It publishes station and day reports indicating the 
duration and the innportance relative of the 
periods devoted by each instrument supervised 
to the various possible actlvities: evacuation of 
the products, transport of equipment, mainten- 
ance, station service ... as well as the number of 
evacuated coal cups. 

This is the kind of text whieh is a dead giveaway of MT, with such phrases 
as ‘the importance relative of the periods’ showing clearly their birth in 
French. 

After post-editing, the text was reduced to the foilowing: 

It pubfishes shift and day reports indicating the 
duration and the relative portion of time spent by 
each vehicle recorded on the various possible 
tasks: coal clearance, materials transport, main- 
tenance, refuelling points ... as wetf as the 
number of coal buckets carried. 

Finally, before we get on to creating our own ‘translation’ program, it is 
mteresting to note that the vast majority of documents using MT at 
present are non-literary. The translation of literary works is another field 
entirely, and in so far as MT is concerned* is barely in its infancy* 

Franglais 

This VZ300 program, using a vocabulary devised by Jeremy Ruston and 
based on an idea from him, accepts English input, and gives out a strange 
polyglot mixture of French and English, where the easiest and most 
obvious words are translated into French, and the difficult ones are left in 
English (this techmque could produce, for example, JE SUIS UN TRES 
EXASPERATED HOMME for I AM A VERY EXASPERATED MAN). 
The magazine Punch has a regular feature caUed “Let’s Talk Franglais” 
whieh shows how delightful such a curious mixture of languages can be. 

The program given here is not designed to be a serious one. It does, 
however, indicate some of the problems inherent in MT, More seriousiy, 
with a greatly extended vocabulary, it could be used to produce a very 
rough document in a kind of French from English text (or from French to 
English, simply by swapping two variables) whieh could then be 
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extensively post-edited. If the program was used in a field with a specialist 
vocabulary, it could do quite a serviceabie job, although it would not be 
able to make any judgements to en sure that the various parta of a sentence 
(such as gender demands in French) were correct. 

You may think the claim that this program could be used seriously* with 
an extended vocabulary, is unrealistic when you read some of the output of 
the program. However, if you think about it, youll see that its potential is 
by no means even approached in the current form. 


The program goes through the text, looking for the space which indicates 
the start of a new word (the word, of course, starts after the space» which is 
why — in line 50 — we added a space to each end of the input, so the 
program wouid not ignore the first and final words). Once it finds one (line 
150) it goes to the routine from 170 which continues to search for the next 
space* so it can isolate the whole word. Then it simply runs through the 
vocabulary until it finds a match. 

If it does find such a match, the French word is printed in place of the 
Enghsh one, and the program returas to continue the search. Note that 
once a match has been found, the program immediately reverts to this 
point. It does not waste time searching through the rest of the vocabulary. 
This means that words near the top of the Iist will be translated more 
quickly than those at the end. This is why the commonly-used words (such 
as THE, ME and AM) are at the top of the Iist. 


9 HELLD MY SOOD FRIENDS 
--> 0ONJGUR MON BON AMIS 


9 I AM VE R Y PLEASED TO SEE YOU 
HERE 

"> SUIS TRES PLEASED A VU 

VOUS ICI 


? COULD I 
E V EN ING 
-* - > C 0 U L D 
P DUR 


H A V E SOME 
HEAL 

J E AI DES 
MON EVENIN 


G 


STEAK FOR 

ENTRECDTE 
K EA L 


M Y 


? EVEHYeODY T HIN K 5 THE TRENDY 
POLICEMAN IS A SUPER DETECTIVE 
—> TOUT LE MONDE ThflNKS LE 
AVANT-GARQE GENDARME EST 
UNE FANTASTIQUE CLUESO 
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? ! AM feeling right INSIDE MY 
HEAD WHEN I MAKE MUSIC BEHIND 
THE LITTLE CAT 
--> JE SUI.S FEELING DfiOlTE 

INSIDE MON TETE QUA N D JE 
MAKE MUSrouE DERRIERE LE 
PETITE CHAT 


Time now for you to 
TRANSLATE: 


experience a Jittle 


MT of your own with 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
1 10 
120 
130 

no 

150 
160 
170 
1 80 
1 90 
200 


hem translate 

GOS0B 400;REM INITIALISE 
INPUT A $:R EM ACCEPT USER INPUT 
IF THEN END 

B$=« » + A* + * LEN(B|) 

GOS0B 1 00:REM TRANSLATE 
GOTO 30 
END 

REM **«####** 

HEM TRANSLATE 
PRINT 
K = 0 
K =K+1 

IF K=L THEN PRINT:PRINT:RETURN 

GOTQ 1 !^ 1 J =n " THEK 170 
X = K+1 
7 = 0 
7=Y-M 

0 220 ^ M1D$CB$ ’ (X+Y ^ 1 > = '’ " THEN Q$eMID$(B$,X,Y) :G0T 

210 GOTO 
M=0 
M=M+ 1 

THEH PKIWT F$(H);" n ;:GOTO 270 
IF fKCOONT THEK 230 ’ ' 

PRINT Q$;« 

GOTO 130 

REM «•#*«••*»* 

REM INITIALISE 
CLS 


220 

230 

240 

250 

260 

270 

390 

400 

410 


190 
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430 DIM E$(100):REM TO HOLD ENGLISH 

440 DIM F$(100):REM TO HOLD FRENCH 

450 C0UNT= 0 

460 COUNT= C0UNT+1 

470 READ E$(C0UNT),F$(C0UNT) 

480 IF F$(COUNT)<> n * B THEN 460 

490 RETURN 

500 REM «• DATA »* 

510 DATA AM.SUIS,ARE,EST,NOT,NE,IN.DANS 

515 DATA THE,LE,ME,MOI,I,JE,HERE,ICI 

520 DATA WHEN.QUAND,YOU,VOUS,IS,EST,IT,IL 

525 DATA DAY,JOUR,AND,ET,SOME,DES,OF,DE 

530 DATA HAVE,AI,A,UNE,MY,MON,YOUR,VOTRE 

535 DATA TO,A,SEE,VO,VERY,TRES 

540 DATA ROOM,CHAMBRE,STEAK,ENTHECOTE 

545 DATA FRIES,"POMME FRITES",BIG,GFAND,FOR,POUR 

550 DATA MATCH,ALLUMETTE 

555 DATA SUPER,FANTASTIQUE,DEAD,MORT,WITH,AVEC 

560 DATA GIN,VIN,WHISKEY,VIN,ffHISKY,VIN 

565 DATA BEER,VIN,MARTINI,VIN,WINE,VIN 

570 DATA PARIS,PLAINS,PLAINS,PARIS 

575 DATA HAIR,CHEVAUX,CIGARETTES,GAULOISES 

580 DATA ARM,BRA,LEG,JAMBE,RIGHT,DROITE,LEFT,GAUCHE 

590 DATA TRENDY,AVANT-GUARDE,MEDICINE,VIN,POLICEMAN 

GENDAHME ’ 

600 DATA DETECTIVE,CLUESO,DOOR,PORTE,HEAD,TETE,LOVE, 
AMOUR 

610 DATA HOUSE,MAISON,CHAIR,CHAISE,EYE,ORIEL,SUN,SOL 
X EL 

620 DATA SONG,CHANSON,FRIENDS, AMIS 

625 DATA BEHIND,DERRIERE,SEA,MER,MOTHER,MERE 

630 DATA CAT,CHAT,DOG,CHIEN,BLUE,BLEU.LITTLE, PETITE 

640 DATA MUSIC,MUSIQUE,PLEASE, n S'IL VOUS PLAIT" 

645 DATA BOY,GARCON,GIRL,FILLE 

650 DATA FISH,POISSON,CHICKEN, POULET 

655 DATA DUCK,CANARD,MUSTARD,MOUTARDE 

660 DATA HOT,CHAUD,COLD,FROID,EVERYBODY,»TOUT LE MON 

DE" 

670 DATA HELLO,BONJOUR,GOOD, BON 
680 DATA *,* 
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Part Nine 
Hanshan 


Our final program in this section on language handling creatas random 
poems. This is a pretty trivial program, and one which - you may argue — 
hardly gives evidence of the presence of artificial intelligence. 

However, imagine you were reading a book like this 30 years ago. The 
author makes a casuaJ remark about a Iow cost de vice writing poetry 
automatically, and then dismisses this as a minor matter. Thirty years ago 
it would have been extraordinary. And, really, when you think about it, it 
stili is. We have become so accustomed to the miraculous we tend to be 
blind to it. 

So, with that thought in mind, we tum to HANSHAN to create a few 
poems. The program is named after the Chinese poet HAN-SHAN, who 
lived in the 8th and 9th centuries. After falling out with his farming family 
he wandered for many years, then settled as a recluse on the Cold 
Mountain (Han-Shan) after which he is now known. 

AU the phrases used in this program’s DATA store come from the book 
Chinese Poems (Arthur Waley, Unwin Paperbacks, London, 1982). The 
program selects from one of three pattems, within which it creates poems 
which are Haiku-like )the Haiku is, of course, a Japanese form, but the 
program does not mind any conflict between Chinese phrases and the form 
into which they are placed by the program). 

Some of the poems produced by HANSHAN have a surprising degree of 
merit: 


MEN OF ACTION 
I TAKE YOUR POEMS... 
OUT FROM THE DEEPEST 


TWISTING 

AND MUCH GRIEVING 
WINDING, SULLEN, SULLEN 
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I HURRY FORWARD 
I PUT OUT THE LAMP.. 
StJLLEH, SULLEN 


SCURRYING 
NOW AT DUSK 

CLEAREST, MEN OF LEARNING 


SLIPPERY...WEAB Y 

.«..MUFFLED 

THOSE THAT ARE LEFT 


SCURRYING...CLEAREST 

....HAMMERED 

WHEN SHALL WE MEET 


Here is the HANSHAN listing to enable you to create a nearly infinite 
sequence of poems. By all means modify the DATA statements to make 
the program {and its output) your own: 


10 REM HANSHAN 
20 GOSUB 250:REM INITIALISE 
30 REM CHOOSE PATTERN 
40 R=RND( 3 ) 

50 0N R GOSUB 90,140,190 
60 FOR T=1 T0 1000:NEXT T 
70 PRINT:PHINT:PRINT 
80 GOTO 40 

90 REM »* PATTERN ONE »» 

100 PRINT W$(RBD(20))j"...«;W$(RND{20)) 
110 PRINT ... n ;W$(RND(20)) 

120 PRINT S$(RND(20}) 

130 RETURN 

140 REM •* PATTERN TWO »• 

150 PRINT S$ (RND{20)) 


"!(RND{20 ) ) 


, ' L aM KND( 20 ) } : * » 

L lS n 20 > 

180 RETURN 

200 !cn,!* JATTERN THREE »« 

200 PRINT W$O?ND( 20 )) 

220 5J« r Sa C HMEC20 ) > 
of« »H ST W$CRND( 20 ))i". 

«30 RETURN 
240 REM 

JIS CLS 1 ««ni»*no» 

ISS 5 ™ »*( 20 ),S*(SO) 

F0R J =1 TO 20 
300 READ W$(J) 

310 NEXT j 

ff° P0R J =1 TO 20 
330 READ S$ f J 1 
340 NEXT J 
350 RETURN 
360 REM »* DATA *« 

380 £??/* 5IHGLE WORDS •* 

D CURRYING,TREADING,GAZING, WITHERED,CHISELi 

400 DATA ufult ! 1 * 1 flanked, WRITHED, BENDING TWISTING 
0 data 

UNDER strward, cataract,sachificial,slippery,J 
JfJ DfTA*r U S r RT PHRAS ES *« 

440 DATi P THE C00L STHEAH 

450 DATA ;?JK D 1V CLU STERED GRACE 

460 DArf %? VBS OF COOLNESS 

470 DATA «l T FR0M THE D EEPEST 
480 JfJf T SULLE «> SULLEN- 

490 DATA t N tJ^ BLACK DARItKE SS 
500 DATA t ltl E ™ VR P0EMS 

510 DATA mv U ° DT THE LAMP 

520 DATA rL SH0RT SPAIf RUNS OUT 

530 SJlf H° S * THAT ARE LEFT 

540 SfJJ " ER 0F LEARNING 

ce* £? TA MBN op ACTION 

560 DA^J 5 HURRY FO^ARD 

570 D° ™L SH ° 0LD YDU WASTE 

580 DATA r ™ SHALL WE MEET 
ATA LlTTLE SLEEPING 
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590 

600 

610 

620 


DATA AND MUCH GRIEVING 
DATA FOR THESE FEW STEPS 
DATA NOW AT DUSK 
DATA I HAVE DONE WITH PROFIT 


NODDED IN CLUSTERED GRACE 
MEN OF LEARNINO... 

MEN OF ACTION 


I TAKE YOUR POEMS 
MY SHORT SPAN RUNS OUT... 
LITTLE SLEEPING 


SCURRYING...SLIPPEHY 

....CLEAREST 

OUT FROM THE DEEPEST 


ASUNDER 

THOSE THAT ARE LEFT 
SLIPPERY, IN THE COOL STREAM 


MEN OF ACTION 

MY SHORT SPAN RUNS OUT... 

IN THE COOL STREAM 


IN THE BLACK DARKNESS 
WHEN SHALL WE MEET... 
IN THE BLACK DARKNESS 
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Part Ten — 

Expert Systems 

There is a iimited number of experts in the world on any one subject. It 
doesn t matter what field you're talking about — mending cars* mining for 
uranium* diagnosing human illness, sortmg edible mushrooms from 
poisonous ones — there is a limit to the number of experts we have 
available. 

Kow while the world is not exactly crying out for more mushroom-sortmg 
experts* there are areas of the world (most of it in fact) where there are not 
enough doctors. One idea of an expert System is to ‘capture' the experfcise 
of one of our experts on a computer* in such a way that a non-expert can 
tap the Information. 

Expert systems is the one area of AI research where significant strides 
have been made. It is the area where such systems are already making 
pnuine, economically viable contributions. And is the one area of AI which 
is not at ali bothered by questions of whether or not the machine 
displaying the expertiseis “thinking". 

In its simplest forni, an expert System is a series of IF/THEN statements. 
A diagnostic system could be as simple as this: 

IF the patient is ceughing 
AND he has recently been soaked to the skin 
AND then stood in a freezing wind for an hour 
TUEN the patient has a eold or pneumonia. 

Of course, you*d hardly need an expert System to make a diagnosis iike 
this (and note that I am not suggesting the diagnosis of my IF/THEN 
Chain is necessarily correct). An expert system comes into its own when 
either of the following conditions exist: 

— the expert is not present but his or her expertise is; 

even the expert doesn’t know with 100% certainty the casual links 
between the observations and the results. This could happen if a medical 
researcher was aware that patients contracting disease X have tended 
to have had contact with foods A and B and have blood group C ... 
although no way of linking A, B and C — apart from the fact that they 
appear together — had been discovered. In this case, a properly 
programmed expert system could make predictions about the likelihood 


of individual D contracting the disease, even when the percentage 
contribution that fsctors A, B and C made were unknown. By studying 
enough cases, the expert System could not only devise its own rules for 
predicting whether a particular individual would, or would not, contract 
the disease, but could then explain its reasoning to a human physidan, 

The ^athematics of reasoning' are very important in the construction of 
expert systems, Often a person ‘drawing out' the expertise of a human 
being in order for it to be encoded into an expert System database (and 
we'Il look a little later at some of the systems which are at work around the 
world at present) discovers the expert does not know how he or she 
actually reaches decisions. 

It can be as much of a revelation to the expert as to the person creating the 
knowledge base for the computer program, In The Fifth Generation — 
Artificial Intelligence and Japan'$ Computer Chollenge to the World 
(Reading* Massachusetts: Feigenbaum, Edward A. and McCorduck, 
Pamela, 1983; pp, 85, 86) we read the very sad story of an expert who 
willingiy explained explained his methods to a ‘knowledge engineer' (the 
name given to those who draw out others' expertise and then modify it for 
the computer program). The expert was highly regarded (and weil paid) for 
his expertise, and was at first disbelieving when the knowledge engineer 
discovered the expertise could be reduced to a few himdred ‘working rules 
of thumb*. From disbelief* the expertas view changed to one of depression, 
and finally he quit his field* a broken man. 

Machines make decisions based on their internal rules. These are — as we 
saw in the discussion leading up to the leaming and reasoning programs — 
relatively simple* Elementary logical reasoning comes down to a relatively 
few, easily expressed* rules. 

We saw that syllogisms could be expressed, and solved, by machine, 
because they took the following form; 

A is a C 
C is a B 

Therefore, A is a B 

The hope of reducing reasoning to a mechanical process has been with us a 
long time. Back in 1677, in the preface to the work The General Sciences , 
Gottfried Leibniz wrote: 
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If one could find ckaracteristics or signs appropriate for expressing ali our 


tkoughts as clearly and exactly as arithmetic expresses numbers or 
analytic geometry expresses lines , we could in ali subjects, in so far as they 
are amendable to reasoning, accomplish wkat is done in arithmetic and 
geometry . ,. 

Moreouer we skould be able to convince the world of wkat we have found or 
concluded since it would be easy to verify the calculation ♦.. if someone 
doubted the results I skould say to him; *Let us calculate Sire, * and taking 
pen and ink we skould soorc settle the question. 

Rather than taking pen and ink, we can now take Silicon, and find answers 
to at least some questions which are beyond most of us to discover (such as 
the ability to predict the Chemical structure of a not-yet-developed 
compound, as one expert system can do) and indicate the Solutions to 
problems which nobody alive can solve* 


Limitations 

Unless they are specihcally programmed to alert an operator to it, expert 
systems can be pretty stupid when they come across something which 
does not fit within their preprogrammed repertoire. It is Iike someone who 
is brilliant at chess, but unable to mas ter the steps needed to knot a 
tie* An idiot savant status is characteristic of many low-level expert 
systems which are based solely on interpreting rules of the IF/THEN type, 
such as I discussed earlier, 

Such systems have no ability to extend their knowledge base while 
operating, and can only think in a straight line from point A to B, then of B 
to C and so on* Such a system may have no way of knowing when its 
laboriously programmed knowledge was inappropriate, no way of 
recognizing the exoeption to the rule. 

The system we will develop comes within the idiot savant deseription. But 
depsite this limitation, which applies to the majority of expert systems in 
use in the world today, you'11 find the systems you develop are fascinating 
artefacts. Our final system, as you J ll see, does have the ability to learn. In 
fact, you simply teli it — as it tries to distinguish between any number of 
things you have programmed into it — whether its guess was right or 
wrong* and eventually it will have taught itself to distinguish between the 
objects, without you explicitly telling it how to make the distinction 
between them. 


Chemical Structure and Dendral 


Before we get to our expert systems, we will have a look at some of the 
systems in use at present, and see what we can learn from examining them. 

The first program we will look at, and possibly the worlds first real, 
working expert system, is called DENDRAL. Work on this system - 
which is able to work out facts about molecular structures from raw 
Chemical data — began at Stanford University in 1965, Bringing together 
expertise from a number of disciplines (with those which provided 
DENDRAL with its working knowledge base of physical chemistry), 
DENDRAL s creators evenfcually produced a system which now performs 
better than anyone in the world in its field (including the men who built it)* 
DENDRAL is in use around the world. 

Stolford waa also the breeding ground for MYCIN, a system which 
diagnoses blood and meningitis infections, then gives treatment 
suggestions. MYCIN bases it conclusions on physical data entered by a 
physician, and can - if requested - explain how it came to reach the 
diagnosis it did, The system contains some 450 rules* 

The knowledge base in MYCIN is so valuable that a companion program — 
GUIDON — has beendeveloped to enable the computer to act as a teacher, 
thus acting as a bridge from one human expert (or, a set of them in this 
case) to another, newly-minted human expert* 

That is stili not the end of the MYCIN's value* Much of the program 
consists of ways of manipulating the rulesit has been given and drawing 
conclusions from them. The mechanisms of manipuiation and inference are 
— to a large extent — independent from the knowledge base* This suggesfcs 
that the Information relating to blood infections could be removed, and 
new informat ion be added. This has been done, and the expert system 
PUFF now dispenses similar assistance to that given by MYCIN, but in 
relation to lung disorders. 

So effective was this process (and in one triai of 150 patients, PUFF 
produced the same diagnosis as did human specialists) that another 
version of MYCIN, simply called EMYCIN (for Empty MYCIN) has been 
developed, into which other knowledge bases can be entered* 

The expert system MOLGEN (for MOLecular GENetics) assists biologists 
working on DNA and with genetic engineering* It is widely used* 
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The most interesting thing — in tercns of examining the directions AI 


researching is taking — is that expert systems actually work extremely 
weU, and it makes sense economicaUy to use them. This ensures that they 
are being used, and that more are being developed* The 'pure research* line 
does naturally enough produce results, but the results tend to come along 
more quickly when there are immediate practical needs for that which is 
being developed, and big bucks and available for the developers* 

Think of a system which gave advice on where to drill for oil* A single fmd, 
and the cost of deveioping the system, even if that ran into the millions! 
could be eamed back relatively quickly , perhaps even in a matter of days. 

Feigenbaum and McCorduck (in The Fifth Generation, mentioned earlier, 
pp. 72, 73) give a graphic example of the 1 earning-back r power of major 
expert systems* They cite the case of a major American company which 
has recently bought an expert system designed to diagnose failures in 
particular types of electricity generating plants. Testing an early, and 
Iargely incomplete, version of the program against the real data that led to 
one of the company s plants being shut down in 1981, it was found the 
system diseovered the cause of the problem that led to the shutdown in a 
matter of seconds* It had taken the human expert s working at that piant 
days to come to the same couclusion. In the meantime, the piant had been 
shut down for four days, a dosure that cost the company around $1*2 
million, 

There are many other systems in use or under development around the 
world. These include: 

— PROGRAMMER’ S APPRENTICE: A system for helping, as ite name 
suggests, with the writmg of Software. 

— EURISKO: An expert system which is able to leam as it works, 
which creates three-dimensional microelectric circuits* 

— GENESIS: An exciting-sounding one, This system, which is on the 

market now, allows scientists to plan and simulate gene-splicing 
experiments* e 

I'm afraid we won*t be getting into gene-splicing just yet although we will 
be finding some interesting applications for our expert systems (such as 
differentiating between a man, a horse and a sparrow!). Let’s have a look at 
the first of our systems now. 
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Part Twelve — 

The Little Spurt 

Our first expert system is SPUET. This program has the ability to teU, 
without error, the difference between three living creatures — a man, a 
horse and a sparrow, Although this is a pretty silly situation, and one 
which probably does not arise very often in your experience, it can teach us 
a great deal about how some kinds of expert Systems are developed* 

Imagine a ‘medical diagnosis' expert system* WeTl call our imaginary 
System MEDICL MEDICI and SPUET are close cousins, as youll see, 
and studying SPUET wili give you a base upon which you can build up a 
useful degree of knowledge of MEDICI and other, more wxde-ranging, 
expert systems. 

You are about to ha ve a session with MEDICL The system asks you a 
large number of questions which you answer with a YES or a NO r as 
follows: 


ARE YOU MALE? 

ARE YOU MORE THAN 40 YEARS OLD? 

DO YOU SMOKE? 

HAVE YOU HAD A CHECKUP IN THE LAST 12 MONTHS? 

DO YOU NORRY FREQUENTLY? 

WOULD YOU DESCRIBE YOURSELF AS A TENSE PBRSON? 

And so on. After a string of these questions, MEDICI pasuses for 
a nanosecond or two, then priiits the followmg message on the screen: 

THANK YOU. YOUR LIFE EXPECTANCY IS 79 YEARS, THUS 
EXCEEDING 11j OF THE POFULATIQN. TO INCREASE YOUR 
CHANCES OF REACHING, OR EXCEEDING THIS, I SUGGEST 
YOU - TRY TO STOF SMOKING 

- GET REGULAR MEDICAL CHECKUPS 

- INCREASE YOUR EXERCISE EACH VEEK 

THANK YOU FOR CONSULTING MEDICI 

What did MEDICI do? How did it turn your YES/NO answers into a life 
expectancy prediction? Actually, as Fm sure you Ve already decided, this 
is not a very sophisticated program, and would not demand a very high 
level of expertise, However, it shows how a real medical diagnosis program 
might begin, if the expert system was interacting directly with a patient. 
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rather than with aphysician as is generally the case at present. 



StHe e H n that *. y0U1 ^ gt r g t0 Lve longer than 11% ° f the popuiation, you 
H erp W J”1 ° make the ac qu»intance of another expert, young SPURT 
Here s what you see on your screen: s 

THINK OF A MAN, A HORSE 
OR A SPARROW 


DOES IT HAVE TWO LEGS 

Y OR N? Y 

CAN IT WALK 

Y OR N? Y 

CAN IT FLY 

Y OR N? N 


YOU WERE THINKING OF A MAN 


Of course SPURT is right. It was not very hard to detennine from your 


THINK OF A MAN, A HORSE 
OR A SPARROW 


DOES IT HAVE TWO LEGS 

Y OH N? Y 

CAN IT WALK 

Y OR N? Y 

CAN IT FLY 

Y OR N? Y 

YOU WERE THINKING OF A SPARHOW 
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This time you decide to quit. How does SPUET record the answers to your 
questions so it can determine that if you said the creature you were 
thinking of had two legs and could walk, but could not fly, was a man? 
How, for that mater, could MEDICI tally your answers and teli you that 
you’d live till you were 79? 

It is very simple, at least in the case of SPURT (and MEDICI worked the 
same general way, only with a considerable degree of refinement). SPURT 
counted each time you gave the answer ‘Y’ to a question. If you gave only 
one ‘Y’ answer, you must have been thinking of a horse (as the WALK 
question was the only one to which you could reply ‘Y' if you were thi nkin g 
of a horse). Two ‘Y’ answers, and it was a man you had in mind. Three, and 
SPURT knew it was the sparrow you were thinking of. 

It is a pretty simple program, but one which lays a foundation upon which 
expert Systems could be built. Here’s the listing: 


10 REM SPURT - VZ300 
20 CLS 

30 PRINT "THINK OF A MAJI, A HORSE" 

40 PRIJIT TAB( 6 ) ; " OR A SPARROW" 

50 FOR J =1 TO 2000:NEXT J 
60 PRINT:PRINT 

70 G0SUB 1 70 :REM ASK QUESTIONS 
80 PRINT 

90 PRINT "-" 

100 PRINT:PRINT "PRESS <RETURN> FOR ANOTHER" 
110 PRINT "ONE 0R ANY KEY TO END" 

120 INPUT Q$ 

130 IF Q$<>"" THEN END 

140 CLS 

150 GOTO 30 

160 REM «t#»»***»**»* 

170 REM ASK QUESTIONS 
180 C 0UNT = 0 

190 PRINT "DOES IT HAVE TWO LEGS» 

200 G0SUB 310 

210 PRINT "CAN IT WALK" 

220 G0SUB 310 

230 PRINT "CAN IT FLY" 

240 G0SUB 310 
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250 PRINT "YOU WERE THINKING 0F A "; 
260 IF C0UNT =1 THEN PRINT "HORSE" 

270 IF C0UNT=2 THEN PRINT "MAN" 

280 IF C0UNT = 3 THEN PRINT "SPARROW" 
290 RETURN 

300 REM »*»*««*»#**#•» 

310 REM PROCESS ANSWER 
320 INPUT " Y OR N"fZ$ 

330 IF Z$<>"Y" AND Z$<>"N" THEN 320 
340 IF Z$="Y" THEN C0UNT=C00NT+1 
350 PRINT 
360 RETURN 


The Little X-Spurt 

? f.y? s big brother. Although this new program bears a 

definite family relationship to the one we first loooked at, it is considerablv 
more sophisticated* 

You can see this increased sophisticated by looking at a sample run from 
it F^stfy, we wdi get it to perform much as SPURT did. However, you can 
teU from the opening frame that this is a rather different program. It is 
iargeiy soft, that is the expertise is not hardwired as in the case of 
SPURT but can be entered differently for each run. 

NAME OF SYSTEM7 CREATURES 


NUMBER OF OUTCOMES? 3 


NUMBER FACT0RS T0 C0NSIDER? 3 

You teU the program its subject matter (CREATURES in this case) and 

number of OUTCOMES (that is, results) and the number of 

IT Fi ? RS ™ BE CO y SIDERED ’ 111686 “"e the variables (such as CAN 

QPTTmr WhlCh > mUSt be , conSidered - Havin g «iven it the framework, X- 
SPURT now asks you to fili in the outlines: 
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WHAT 

WHAT 

WHAT 


IS OUTCOME 1 ? 

IS OUTCOME 2 ? 
IS OUTCOME 3 ? 


MAN 

HORSE 

SPARROW 


Having told it the outcomes, it asks you to enter the questions which relate 
to the factors which determine which outcome you are seeking: 


PLEASE ENTER QUESTION 1 
? DOES IT FLY UNAIDED 


PLEASE ENTER QUESTION 2 
? DOES IT HAVE TWO LEGS 


PLEASE ENTER QUESTION 3 
? DOES IT WALK 

This may seem like a lot of trouble we’re going to, just to emulate SPURT, 
hat as you II see shortly — it will be worthwhile* This simple exercise is 
showing you how X-SPURT can be trained to become an expert on just 
about any thing. 

X-SPURT now goes through each of the outcomes you have entered, and 
says “If I asked the following question, in respect of this outcome, wouid 
you answer ‘yes' or ‘no’. From this Information, X-SPURT can assemble 
an equivalent knowledge base to the one which was hardwired into 
SPURT, Of course, X-SPURT could be building up a knowledge base on 
anything. 


ANSWER THE FOLLOWING 
FOR OUTCOME > MAN < 
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ENTER 'Y' FOR 'YES' 
OR 'N' FOR 'NO' 


> DOES IT FLY UNAIDED? N 


> DOES IT HAVE TWO LEGS? Y 

> DOES IT WALK? Y 

ANSWER THE FOLLOWING 
FOR OUTCOME > HORSE < 

ENTER 'Y' FOR 'YES' 

OR 'N' FOR 'NO' 

> DOES IT FLY UNAIDED? N 

> DOES IT HAVE TWO LEGS? N 

> DOES IT WALK? Y 

ANSWER THE FOLLOWING 
FOR OUTCOME > SPARROW < 

ENTER ’Y * FOR 'YES' 

OR 'N* FOR 'NO' 

> DOES 3T FLY UNAIDED? Y 

> DOES IT HAVE TWO LEGS? Y 

> DOES IT WALK? Y 

Once you've been through each of the possible outcomes, and told it what 
your answers wouid be for the questions, X-SPURT creates a ‘knowledge 


base’, which in this case is little more than adding up the total l Y' replies, 
X-SPURT reports its findtngs to you: 

THIS IS MY EXPERT BASE: 

MAN- 6 

HORSE-4 

SPARROW - 7 


But where did it get those numbers? You couid not have given four *Y T 
answers for horse* or 7 for sparrow, because there are only three questions. 
X-SPXJBrT does not add a single one for each Y’ answer, but instead gives 
a number which changes for each answer. If there was just one awarded for 
each ‘Y f , and you answered 4 Y' to, say, questions one and three for one 
thing, and to questions two and three for another thing, it would have the 
same total for both objects* 

To get round this, to ensure that the actual order in which the *Y* answers 
are given is important, we proceed as follows: 

A *Y f answer to question 1 is worth 1 
A *Y’ answer to question 2 is worth 2 
A' Y 1 answer to question 3 is worth 4 
A *" Y* answer to question 4 is worth 8 

. 5 16 

.6 32 

. 7 64 

* *. and soon ,, * 


This makes sure that, even if the same number of *Y* answers are given for 
two different things, a different identifying number will be given to our 
expert by which to make judgements. 
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Here’s the listing of X-SPURT: 


/ 


10 REM X-SPURT 

20 GOSUB 9^0:REM INITIALISE 

An nnfro ? 50!liEM ' GAI1 * EXPERTISE» 

50 GOSUB 1060 REM DEM0WSTRATE EXPERTISE 

70 pJ5ht "< RETtIIiM > F0R ANOTHER RUN" 

70 PRINT "OR ANY KEY TO QUIT" 

80 INPUT Q$ 

90 IF Q$ = i' " THEN 40 
100 END 
110 REM 

120 REM DEMONSTRATE EXPERTISE 
130 CIS 

140 GOSUB 1060 

JfiS lll *t : T ™ 0F 0NE 0F THE following" 

160 FOR Jsl TO 0UTC0MES 
170 PRINT TAB(J+2); 

JIS ™ii!; 0 lJuT s THE " •> 

200 NEXT J 
210 GOSUB 1060 
220 RESULT =0 
230 X =.5 

lll RRYNT "PLEASE enter >y> OR >N».. " 

250 FOR J=i TO FACT 
260 X=X+X 

270 GOSUB 1060 
280 PRINT B$ { J) 

290 IWPUT E$ 

3°0 HEXT*5 > " N " THE " BESDI ' T *»BSULT- t X 

Ilo gS”b Vom*”'* RESDLI MS " ;,,Esl,LI 

340 M= 0 
350 M=M+1 

™ D(M)=RESULT THEN 400 
I 1° ll M<0UTCOMES THEN 350 

390 CANN0T IDENTIFY IT" 

J?o prtJ? Y0U WERE thinking- 

410 PRINT TAB(4);"0F ";A$(MJ 
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420 GOTO 390 

430 RETURN 

440 REM »•»*»§•*««§ 

450 REM FILL ARRAYS 

460 PRINT TAB{20-LEN(N$)/2) ;N$ 

470 GOSUB 1060 

480 REM «« GET OUTCOME NAMES «• 

490 FOR J =1 TO OUTCOMES 
500 GOSUB 1060 

510 PRINT "WHAT IS OUTCOME";Jj 
520 INPUT A$(J) 

530 NEXT J 
540 CLS 

550 REM »* GET QUESTIONS TO BE ASKED »* 

560 FOR J =1 TO FACT 
570 GOSUB 1060 

580 PRINT "PLEASE ENTER QUESTION";J 
590 INPUT B$(J) 

600 NEXT J 
610 CLS 

620 REM *» ACQUIRE EXPERTISE •« 

630 FOR J =1 TO OUTCOMES 
640 CLS 

650 GOSUB 1060 

660 PRINT "ANSWER THE FOLLOWING" 

670 PRINT "FOR OUTCOME > *:A$(J);" <" 

680 GOSUB 1060 

690 PRINT "ENTER *Y' FOR 'YES'" 

700 PRINT " OH ' N 1 FOR *N0' " 

710 X =,5 

720 FOR K =1 TO FACT 

730 X = X+X 

740 GOSUB 1060 

750 PRINT TAB(4);"> ";B$(K): 

760 MULTIsO 
770 INPUT Y$ 

780 IF Y$<>"N" THEN MULTI =1 

790 D(J)= D(J)+X»MULTI:REM COMPILE EXPERT BASE 
800 NEXT R 
810 NEXT J 
820 CLS 

830 PRINT "THIS IS MY EXPERT BASE:" 

840 FOR J =1 TO OUTCOMES 
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850 GOSUB 1060 

860 PRINT A$(J)j" -";D(J) 

870 NEXT J 
880 GOSUB 1060 

890 PRINT TAB( 8 );"PRESS 'RETUHN»" 

900 INPUT Q$ 

910 CLS 
920 RETURN 
930 HEM 

940 REM INITIALISATION 
950 CLS 

960 INPUT "NAME OF SYSTEM";N$ 

970 GOSUB 1060 

980 INPUT "NUMBER OF OUTCOMES";OUTCOMES 
990 GOSUB 1060 

1000 INPUT "NUMBER FACTORS TO CONSIDER";FACT 
1010 DIM A$<OUTCOMES),B$(FACT) 

1020 DIM D(OUTCOMES) 

1030 CLS 
1040 RETURN 
1050 REM ••*«**» 

1060 PRINT:PRINT 
1070 RETURN 
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Part Eleven — 

Self-Leaming Systems 

You'll recall, in the second system we looked at in this section, that the 
program X-SPURT allowed you to en ter expertise on any subject. Once 
you d fed it in, the program was ready to be your expert on the subject you 
had chosen, 

However, it had one disadvantage. It demanded that you run through each 
of the factors, for each of the outcomes, in order to acquire a knowledge 
base from which it oould work. 

Our next program, SELFLEARN, does not require the same kind of 
spoonfeeding which was needed with X-SPURT. Here it is in action: 

HOW MANY FACTOHS? 3 


EKTEB FACTOH 1 
? WINGS 


ENTEB FACTOR 2 
? PAIR OF EYES 


EKTER FACTOR 3 
? EATS WORMS 


EKTER OUTCOME 1 
? SPARROW 


ENTER OUTCOME 2 
? HUMAN 


Once you have this information in place, you can run the program, and it 
will proceed to teach itself how to teli the difference between various 
outcomes: 
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I WILL SHOW MY EXPERTISE 
THIUK OF ONE OUTCOME 
IS WINGS TRUE? 

? N 
> 0 

IS PAIR OF EYES TRUE? 

? Y 
> 1 

IS EATS WORMS TROE? 

? N 
> 0 

>BRAYN= 0 

OUTCOME IS SFARROW 
CORRECT? (<y' OR »N f > 

? N 


I WILL SHOW MY EXPERTISE 
THXNK OF ONE OUTCOME 
IS WINGS TRUE? 

? Y 

> 1 

IS PAIR OF EYES TRUE? 

? Y 

> 1 

IS EATS WORMS TRUE? 

? Y 
> 1 

>BRA YN=; * 7 
OUTCOME IS HUMAN 
CORRECT? ( 1 Y* OR *N f ) 

? N 


For a while it will get things wrong, as you see above, but thea will start 
gettmg some correct guesses: 

I WILL SHOW MY EXPERTISE 
THIKK OF OHE OUTCOME 
IS WINGS TRUE? 

? Y 
> 1 
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IS PAIR OF EYES TRUE? 
? Y 
> 1 

IS EATS WORMS TRUE? 

? Y 

> 1 

>BRAYN= 2 

OUTCOME IS SPARROW 
CORRECT? (ry» OH *N') 
? Y 


I WILL SHOW HY EXPERTISE 
IHINK OF ORE OUTCOME 
IS WINGS TRUE? 

? N 
> 0 

IS PAIR OF EYES TRUE? 

? Y 

> t 

IS EATS WORMS TRUE? 

? N 

> 0 

>BRAYN= 0 

OUTCOME IS SPARROW 
CORRECT? ( *Y » OR »N f ) 

? N 


due course it will become infallible: 


I WILL SHOW MY EXPERTISE 
THXNK OF ONE OUTCOME 
IS WINGS TRUE? 

? N 
> 0 

IS PAIR OF EYES TRUE? 

? Y 
> 1 

IS EATS WORMS TRUE? 

? N 
> 0 

>BRAYN=-7 
OUTCOME IS HUMAN 
CORRECT? (*Y r OR <N*) 

? Y 


How It Works 


The important thing (and the major Hxmtation) of this program is that it 
can only distinguish between two outcomes (such as SPARROW and 
MAN in our example), The program starts with the assumption that its 
total (the variable BRAYN) will be either greater than or equal to zero, or 
less than zero* The actual value BRAYN achieves does not matter. 

When you first run it, the program asks for the raw Information it will 
need. Then, each time through the J loop, SELFLE ARN begins by fiUing 
each element of the C array (there is one element for each FACT) with zero* 
It then proceeds to print up the factors, one by one, asking you to 
comment 'Y* or ‘N’ on whether they refer to the outcome you have thought 
of: If you say ‘Y' then that element of the C array is set to one* Onca you Ve 
been through this loop, BRAYN works out a total for that outcome, with 
the code from 230 to 270. 

If you look at the listing carefully, youH see that the very first time this 
loop is run t BRAYN will equal zero (because al of those CfJJV have been 
muitiplied by D(J)V, and every D(J) starts out equalling zero)* This means, 
the very first time you run the program, it will give you option one (that is 
A$(l>, the first outcome you entered), as BRAYN will be equal to zero. 
SELFLE ARN then asks if that was correct Jf you teli it that it is correct* it 
does not modify its Information, because — in its present eondition — it 
will give the same answer next time the same Information is presented. If, 
however, you teli it that it was wrong, it will go through the next loop, 
modifying the values of D(J) using both the C(J) values you gave, and by 
use of the variable EX. If you look back to lines 280 and 290, you'II see EX 
is set to -1 if the outcome it thought of was A$(I), and to 1 if it thought of 
A$(2). 

D(J) is the vital component of the loop 240 to 260 helps determine the 
value of BRAYN, so this mu st be modified if the program gave the wrong 
resuit* Once it has made its changes to D(J), using both the values of the 
element s of the C array (which can, you'31 see from lines 60 and 200, only 
have values of one or zero), the program returas for another try* As you'11 
see, it soon becomes infallible. 

Here is the listing: 


10 REM SELFLEARN - VZ3Q0 VERSI0N 
20 GOSUB 400:REM INITIALISE 
30 REM *** MAJOR LEARNING LOOP *** 
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40 CLS 

50 FOR Jsl TO FACT 
60 C(J}=0 
70 NEXT J 
80 PRINT 
90 GOSUB 130 
100 GOTO 40 

110 REM »•*#••#•*••••■•«•• 

120 REM DEMONSTRATION TIME 

130 PRINT "I WILL SHOW MY EXPERTISE" 

140 PRINT "THINK OP ONE OUTCOME" 

150 FOR J=1 TO FACT 
160 X=X+X 

170 PRINT "IS TRUE?" 

180 INPUT Z$ 

190 IF Z$ <>"Y" AND Z$<>"N" THEN 180 
200 IF Z$ b"Y" THEN C(J).1 
210 PRINT TAB(3)}"> ";C(J) 

220 NEXT J 

230 BRAYNsO 

240 FOR J=1 TO FACT 

250 BRAYN=BRAYN+C(J)*D(J) 

260 NEXT J 

270 PRINT TAB(3);">BRAYN="jBRAYN 

280 IF BRAYN> = 0 THEN PRINT "OUTCOME IS "jA$(1):EX 

290 IF BRAYN<0 THEN PRINT "OUTCOME IS ";A$(2):EX= 
300 PRINT "CORRECT? {'Y' OR 'N')" 

310 INPUT Z$ 

320 IF Z$ <>"Y" AND Z$<>"N" THEN 310 
330 PRINT 

340 IF 2 $ = "Y" THEN 380 
350 FOR J=1 TO FACT 
360 D(J)=D(J)+EX*C{J) 

370 NEXT J 
380 HETURN 

390 REM »**•»««»###•** 

400 REM INITIALISATION 
410 CLS 

420 OTCO=2:REM NUMBER OF OUTCOMES 
430 PRINT:PRINT 

440 INPUT "HQW MANY FACTORS";FACT 
450 DIM A $(OTCO):REM NAMES OF OUTCOMES 
460 DIM B$(FACT):REM NAMES OF FACTORS 
110 
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470 DIM C(FACT),D(FACT) 

480 CLS 

490 FOR J=1 TO FACT 

500 PRINT:PRINT 

510 PRINT "ENTER FACTOR"jJ 

520 INPUT B$(J) 

530 NEXT J 
540 PRINT:PRINT 
550 CLS 

560 FOR J=1 TO OTCO 

570 PRINTiPRINT 

580 PRINT "ENTER OUTCOME";J 

590 INPUT A$(J) 

600 NEXT J 
610 RETURN 
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Section Three 
Practical Programs 


Many computers are laundied without significant Software support from 
the manufacturer, Commercial Software comapnies watch the launch of a 
new computer, trying to gauge when there will be enough machines in the 
marketplace to justify spending time developing programs, whether they 
be games or business application programs. In the meantime, while 
waiting for programs which suit your needs to be developed, you can either 
adapt existing published programs from books or magazines* or write your 
own materia! from scrach. It is likely you may well start by adapting 
programs before moving on to writmg your own. 

If you know your business is unusual, and that a specific program would 
be very useful, it may well be worth the trouble and expense of hiring a 
free-lance programmer to create a program for you or modify a program 
which is currently available. Otherwise, books and magazines will be 
among your program sources. 

There are a nuraber of things to keep in mind when you decide you’d like to 
buy practical programs for the VZ300. You may be lucky enough to find 
exactly the program you need, which simply has to be loaded in and then 
run. However, a program which is tightly locked to your present method of 
doing business may prevent you from changing and developing your 
method of operation if the need arises. 

Despite any claims you see in the advertising of programs, it is improbable 
that exactly the right program for your present and future needs exists 
ready for purchase off the shelf* You must be prepared to work on the 
program yourself to some extent. 

Severa! companies are developing programs which are open enough to be 
tailored for a number of applicatione but are stili written tightly enough to 
be of real use. You'11 find these advertised and reviewed in the computing 
magazines. 
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Minicalc 


he Minicalc program, which can be very useful for extrapolating trends, 
ows you a permanent hard copy of its output* You can, however, use it 
so e results are just shown on the screen. You are given a choice at the 
sheet p eaC ^ Minicalc offers one of the facili lies provided by spread 

If you have any stream of data which represents returns of events 
occurring m sequence, and which appear to indicate a fairly steady 
aevelopment, youT find applications for this program. 

You could T for example, plot the cost of running a car over a two year 
penod and, assuming you kept the same car (and did not do something 
radical to it hke havmg an accident or replacing the motor), predict with 
some certamty the running costs for the following year* Car repairs tend to 
folio w a trend which could be characteri sed by slowly rising costs, partly 
ue to inflation and partly to the increasing age of the car. 

Similarly, the number of rejects on a production line, with constantly 
improving quahty contro! earlier in the production proces s, should lead to 
f f aduaI1 y decreasing rejection rate, Entering known figures for rejects 
into Mmicalc could provide you with an indication of the reject rate for 
turee, six and rane months ahead, assuming your quality control 
improvement continues. You may well find that such things as the number 
ot person hours lost due to industrial accidents in your piant shows a 

tWrtrend 1 trend ' Minicaic is ideal for produdng a forward projection of 

Many relationships can be extrapolated with this program, and so long as 
you do not run the projection too far into the future (watch out for absurd 

output with ‘excess extrapolation’), you should find the Information of 
value. 

An exampie of excess extrapolation would be to enter the growth pattem 
in passenger use of a privately-owned bus Service, until it exceeded the 
number of people in the area served by the buses, or exceeded the number 

ot people in the area who did not have easy access to alternative means of 
transport. 

To suggest that because your company showed a groww improvement in 
output of five per cent per month for the last six months that this growth 


pattern will continue month after month for five years is ludicrous. This 
would certainly be placing too much relience on a relatively short period of 
data collection, 

Despite these cautionary examples, you'31 stili find Minicalc a valuable 
planning tool, especially if you use it to project for time periods which are 
similar to the time periods over which your entered data has been 
collected, That is, if you ha ve sales figures from a particular territory for 
12 months and you 5 d like to see how the next 12 months shape up, 
assuming gross factor s remain much the same over the coming year as 
pertained during the year for which data is available, you could use 
Minicak with some confidence. To project the next decade*s figures from a 
single 12 months" retum would not be wise. 

However, even this long range forecast could be of benefit in highlighting, 
for example, the residual deteriora tion in sales from a cerfcain territory. 
While a one per cent drop per month in sales over a six month period might 
not seem too critical and could no doubt be blamed on extemal factors, 
projecting this for a further five years could highlight the seriousness of 
the problem. 

For example, entering six months* sales figures into the program 
{assuming the figures were 100 uniis, 99, 98, 97, 96 and 95) would show an 
average deterioration of 1*04%, Projecting this trend would show figures 
of 84 after 12 months, 74 after 24 months and 65 after 36 months - a fall- 
off of more than a third? 

On the of her side of the coin* the output of a growing trend cau be a very 
encouraging source of good news* Assuming, for exampie, you projeeted 
future days lost through strike action, after you have followed a year-long 
process of improving management/worker relations, and entered figures 
for the last four quarters of 145 hours, 136, 122 and 104 lost, you'd find 
that if the trend continued over the next four quarters you*d only lose 91 
man hours, 80, 71 and 62 respectively* Even if you doubt the reliability of a 
straight line projection of this type, you will probably agree that at the 
very least it gives additional Information with which to make management 
decisions and, even if hmited, this can be of value, 

Although the program listing and output refers to time periods called 
'months', it can obviously be altered or taken to refer to any time period 
you desire — from nanoseconds to years. 
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10 REM MlNICALC; 

20 REM 
30 CLS 

70 GOSUB 870 ’ 

80 PRINT "ENTEH NUMBER 0P MONTHS FOR WHICH 

on n, DM . FIGURES ARE AVAILABLE" 

90 INPUT M:IF M<2 THEN 90 
100 TTsO 
110 CLS 

120 DIM A(M),B(M) 

1|t0 PRINT "RECORDED FIGURES" 

150 FOR 2 a]i T ?oV PHINT " REC0BDED FIGURES" 

170 INPUT FI ° URE F0R M0NTH "! A 

180 PRINT "MONTH:";A;A(A) 

mn 2=1 LPRINT "MONTH: " : A • A( AI 

190 TT= TT+A(A) ' 

200 NEXT 

210 AV=TT/M 

220 FOR B=2 TO M 

Ho NEfT = O00 ‘ (A(B " 1)#100/ACBn) 

250 CLS 
260 PRINT 

270 PRINT "_ 

275 IF 2=1 THEN LPRINt'"~"7 * ” 

LPRINT 


276 IF 2=1 THEN LPRINT " " 

310 NEXT I NTf100*B(A)J/100;"J * 

330 TT=0^ =1 T ° 1700:NEXr 
3-40 FOR A = 2 TO M 
350 TT= TT+Bf A) 

360 NEXT 
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380 CLS 

390 PRINT "..... 

395 IF Zsl THEN LPRIHT " 

LPRINT "-n 

396 IF Z =1 THEN LPRINT " " 

400 CAVE=INT(100*CAVE}/100 

410 PRINT "AVERAGE CHANGE: "jCAVEj"*" 

415 IF Zs 1 THEN LPRINT "AVERAGE CHANGE: ";CAVE;"j( 
420 FOR T =1 TO 1700:NEXT 
430 CLS 

440 PRINT "-n 

445 IF Z =1 THEN LPRINT " "j 

LPRINT "-it 

446 IF Z=1 THEN LPRINT » " 

450 PRINT " PROJECTION OF CHANGE:" 

460 IF Z =1 THEN LPRINT » PROJECTIOR OF CHANGE 

465 SOUND 20,1:SOUND 25,1 
470 FOR T =1 TO 1000:NEXT 

480 PRINT:PRINT "HOW MANY MONTHS PREDICTION 
WOULD YOU LIKE?" 

490 INPUT NU 

500 CLS:SOUND 20,1 

510 PRINT "FINAL MONTH:";A(M) 

520 PRINT "AVERAGE PER MONTH:";AV 
530 IF ZOI THEN 560 
540 LPRINT "AVERAGE PER MONTH";AV 
550 LPRINT "FINAL MONTH:";A(M) 

560 FOR T=1 TO 1000:NEXT 

570 PRINT "DO YOU WANT A PROJECTION BASED UPON:" 
580 PRINT " 1 - THE FINAL MONTH...OR" 

590 PRINT " 2 - THE AVERAGE PER M0NTH7" 

600 INPUT D 
610 SOUND 25,1 
620 SOUND 12,2 
630 CLS 

640 IF Z =1 THEN LPRINT ELSE PRINT 

650 E=A(M):IF D =2 THEN E=AV 

660 PRINT "MONTH 1 - RECORDED ";A(M) 

665 IF Z =1 THEN LPRINT "MONTH 1 - RECORDED "}A(M) 
670 FOR Ar2 TO NU 
680 E=£+CAVE*E/100 
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690 

695 

700 

710 

720 

725 


726 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 


890 

900 

910 

920 

930 


PRINT "MONTH:"j A;" - ";INT{£) 

IF Z=1 THEN LPRINT "MONTH:";A;" - ";INT{E) 

FOR T =1 TO 300:NEXT 

NEXT 

PRINT "-'_n 

IF Z=1 THEN LPRINT " ": 

LPRINT "- - 

IF Z=1 THEN LPRINT " " 

FOR T=1 TO 1000:NEXT 
PRINT:PRINT 

PRINT " 1 - PROJECTION AGAIN" 

PRINT " 2 - OUTPUT AGAIN" 

PRINT " 3 - START AGAIN" 

PRINT " 4 - TO END" 

IF INKEY$<>"" THEN 790 
A$=INKEY$ 

IF A $ ="" THEN 800 
IF A$=" 1 " THEN 430 
IF A$s"2" THEN 250 
IF A$a" 3 " THEN RUN 

IF A$="4" THEN PRINT:PRINT "OK, THANKS":END 
GOTO 790 
PRINT:PRINT 

PRINT " PRESS 1 FOR COPY ON PRINTER 
OR 2 JUST FOR SCREEN" 

A$=INKEY$ 

IF A$<>" 1 " AND A$<>"2" THEN 890 

Z=0:IF A$=" 1 " THEN Z =1 

CLS 

RETURN 


Here is a sample output of the program; 


MINICALC 


PRESS 1 FOR COPY ON PRINTER OR 
2 JUST FOR SCREEN 










ENTES NUMBER OF MONTHS FOR WHICH 
FIGURES ARE AVAILABLE 
? 12 

ENTER FIQURE FOR MONTH 1 
? 2902 

HONTH; 1 2902 

ENTER FIGURE FOR HONTH 2 

? 2897 

MONTH; 2 2897 

ENTER FIGURE FOR MONTH 3 

? 2876 

MONTH: 3 2876 

ENTER FIGURE FOR MONTH 4 

? 2680 


HECORDED FIGURES 


HONTH: 

1 

2902 

MONTH: 

2 

2897 

MONTH: 

3 

2876 

MONTH: 

4 

2680 

MONTH: 

5 

26 40 

MONTH: 

6 

2612 

MONTH: 

7 

3200 

MONTH: 

8 

3253 

MONTH: 

9 

2800 

MONTH: 

10 

2830 

MONTH: 

1 1 

2720 

MONTH: 

12 

2650 

DIFFERENCE 

BETWEEN MONTHS: 

HONTHS 

1 

- -.18 % 

HONTHS 

2 

- -.74 % 

HONTHS 

3 

- -7.32 % 

HONTHS 

4 

- -1.52 % 

HONTHS 

5 

- - 1.08 % 

HONTHS 

6 

- 18.37 % 

HONTHS 

7 

- 1.62 % 

HONTHS 

8 

- - 16.18 % 
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HONTHS 

9 

- 1,06 % 

MONTHS 

10 

- -4,05 % 

MONTHS 

11 

- -2.65 t 


AVERAGE CHANGE: 

2838.33 % 

PROJECTION 

OF CHANGE 


PROJECTION OF CHANGE; 


HOW MANY HONTHS PREDICTION WOULD 
YOU LIKE? 

? 12 


AVERAGE PER MONTH 2838.33 
FINAL MONTH: 2650 
FINAL MONTH: 2650 
AVERAGE PER HONTH: 2838.33 
DO YOU WANT A PROJECTION BASED 
UPON: 


1 - 

THE 

FINAL MONTH...OR 

2 - 

THE 

AVERAGE PER MONTH? 

MONTH 

1 - 

RECORDED 2650 

MONTH 

: 2 

- 

2619 

MONTH 

: 3 

- 

2589 

MONTH 

: 4 

- 

2559 

MONTH 

: 5 

- 

2530 

MONTH. 

: 6 

- 

2501 

HONTH; 

: 7 

- 

2472 

MONTH: 

: 8 

- 

2443 

MONTH; 

: 9 

- 

2415 

MONTH; 

: 10 

- 

2388 

MONTH; 

: 11 

- 

2360 

MONTH; 

: 12 

- 

2333 


119 







1 - PROJECTION AGAIN 

2 - OUTPUT AGAIN 

3 - START AGAIN 

4 - TO END 


DIFFERENCE 

BETWEEN MONTHS: 

MONTHS 

1 

- - . 18 % 

MONTHS 

2 

- -.74 $ 

MONTHS 

3 

- -7.32 % 

MONTHS 

4 

- -1.52 % 

MONTHS 

5 

- -1.08 % 

MONTHS 

6 

- 18.37 % 

MONTHS 

T 

- 1.62? 

MONTHS 

8 

- -16.18 ? 

MONTHS 

9 

- '1.06 % 

MONTHS 

10 

-4.05 % 

MONTHS 

11 

- -2.65 t 

AVERAGE 

CHANGE: 2838.33 % 


PROJECTION GF CHANGE 
AVERAGE PER MONTH 2838-33 
FINAL MONTH: 2650 


MONTH 

1 - 

RECOHDED 

MONTH: 

2 

- 

2805 

MONTH: 

3 

- 

2773 

MONTH: 

4 

- 

2741 

MONTH: 

5 

- 

2710 

MONTH: 

6 


2678 

MONTH: 

7 


2648 

MONTH: 

8 

- 

2617 

MONTH: 

9 

- 

2587 

MONTH: 

10 

- 

2557 

MONTH: 

11 

* 

2528 

MONTH: 

12 

- 

2499 


2650 
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Repayments on Mortgage 


Probably the biggest sum of money you will ever borrow will be used to 
buy your house. The formula used takes mto account that the early 
repayments are almost entirely repaying interest* while the later ones are 
repaying more principal than intereat. 

Thia program will teli you what repayments should be on a housing loan, 
and also how much you will pay back altogether. Thia final figure is, 
however, somewhat depressing. 

VZ REPAYMENTS 
PRINCIPAL? 85000 



TIME? 30 




INTEREST 

RATE? 16. 

75 



ANNUAL 

REPAYMENT 

IS 

$ 

14375.5 

MONTHLY 

REPAYMENT 

IS 

$ 

1197.47 

TOTAL 

TO REPAY 

IS 

$ 

431265 


10 REM HOUSING LOAN 

20 CLS:PRINT " VZ REPAYMENTS" 

30 PRINT:INPUT " PRINCIPAL";P 
1)0 INPUT " TIME"; T 

50 INPUT "INTEREST RATE";R 
60 R=R/100 

70 REP=((1+R)“T)*R«P/C({1+R>"T)-1) 

80 REP=INT(REP*100)/100 

90 PRINT:S0UND 12,4:SOUND 16,4:SOUND 12,5 

100 PRINT " ANN0AL REPAYMENT IS $";FEP 

110 PRINT "MONTHLY REPAYMENT IS $";INT{REP-8.33)/100 

120 PRINT " TOTAL TO REPAY IS $";REP*T 
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Section Four 
FORTH 


Welcome to this section of the book which is on FORTH. With the ald of 
this section, and the program, you should soon be well on the way to 
mastery of this fascinating Ianguage, 

AII languages have their advoca tes. Few devotees are as impasaioned as 
those who support FORTH* FORTH is incredibly flexible, fast (20 to 30 
times faster than BASIC) and very compact (a complete FORTH can 
occupy less than 8K). 

The knowledge you gain working with The FORTH Tutor can be 
transferred instantly to any complete FORTH implementation. The 
programs you write for the FORTH given here will run, more or less 
without modification, on any FORTH. 

Despite the (regrettable) growing trend for major pieees of Software to be 
written by a committe© or programming team, it is interesting to note that 
some of the most important programs have been written by one person. 
The classic word processing program Wordstar, the languages C and 
Cobol as well as the operating system Unix were aO essentially the work of 
a single programmer in each case. So is FORTH. 

FORTH was developed by Charles Henry Moore, who was reportediy 
frustrated by the ability of the programming languages he was currently 
using (such as FORTRAN and ALGOL) to allow him to write programs to 
control radio tale scopes. He first developed a primitive ver sion of his 
ianguage in the early seventies, and finally managed to get an integrated 
ver sion of it running on an IBM 1130, the most powerful computer he had 
at his disposal. 


The Ianguage was called FORTH because Moore was working with 'third 
generation' computer s, and he saw his Ianguage as a Tourth generation' 
one* Therefore, he wanted to call his Ianguage ‘Fourth’. However, as 
serendipity wouid have it* the 1130 only allowed file nam es of five 
characters, so ‘Fourth* was shortened to FORTH (and is always spelt in 
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capital letters when refening to the Ianguage)* As Moore points out in the 
foreword to StarUng FORTH (FORTH Inc., Leo Brodie, Frentice-Hall, 
1981), this was just as well because, when compared with Tourth*, FORTH 
was ' ‘a nicer pky on words any way ”, 

The best thing about FORTH — and the element of the Ianguage which 
strongly differentiates itself from a ‘fixed* Ianguage like BASIC — is that 
although it comes with a set of Standard words it understands, these can 
be used to develop your own commands. These new commands can then be 
used in the construction of stili further commands. This Is what makes it 
fast, powerful and flexible, 

There is one quite spooky resuit of this flexibility. As the authors point out 
in FORTH (Salman, W,P. t Tisserand, O* and Toulout, B,; Macmillan, 
1984): “However bizarre the concept may appear to the non-iniated, 
FORTH can be almosl completely written in FORTH.” Now The FORTH 
Tutor will hardly allow you to do that, although you can create up to 50 
new words of your own, which the system will execute just as if they were 
programming words provided with the raw version of the Ianguage. 

Reverse PoJish 

One of the more unusual things about FORTH is its arithmetic, When you 
want to add two numbers, such as 50 and 9 in BASIC, you wouid en ter the 
following: 

PRINT 50 + 9 

To do this in FORTH, you’d need to enfcer: 

50 9 + * 

You enter the first number (50), then a space (spaces are very important in 
FORTH, as you'11 see in due course), then a second number (9), another 
space, the operation you wish to perform (+) followed by a dot {.) which 
causes the program to prizit out the answer, If you leave off the dot, 
FORTH will stili work out the problem, but won’t teli you the answer, This 
kbd of arithmetic, working from left to right, with the operator after the 
values to be operated on, is called Reverse PoUsh Arithmetic. Use of this 
kind of arithmetic will become ciear to you in a moment, when we look at it 
in more detail. 
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The Stack 


The stack is orte of the fundamenta] concepts of FORTH, so it’s worth 
takmg the trouble to try and understand what it is (although the ‘visible 
stack’ in the program will make it pretty ciear once you get the program 
running). The stack is like a tali pile of pieces of paper. You can write on a 
piece of paper, and put it on the top of the pile, or you can take a piece 
away, but you can only remove a sheet from the top of the pile. The last 
sheet you put on the pile mu st be the first one you take off. 

When you enter the 50, foUowed by a space, a computer running FORTH 
in effect writes this number on a sheet of paper, and places it on top of the 
stack of paper. Then, it writes the 9 on another sheet, and places it on top 
of the 50, so the 50 is now the second piece of paper down from the top of 
the stack. 

Next the computer comes to the instruction *+' which is a word in the 
computer’s ‘dictionary’ of things it knows how to do. ‘+’ telis the 
computer to “take the top two numbers off the top of the stack, add them 
together, then place the resuit of that addition on top of the stack”. This is 
what the ‘50 9 +’ program does. Finally, working along the line of input, 
the FORTH computer comes to the word V and uses this as a signal to 
take the value off the top of the stack, and print it out. 

If you do not include the V the computer will, as I pointed out before, stili 
work out the prohlem, but will leave the answer on the top of the stack. 

The Visible Stack 

The stack provided with our program can be up to 20 sheets of paper 
deep. The sheets of paper only store numbers, and as we saw before, a 
number is written on the top sheet, then the next sheet of paper with a 
number on it is put on top of the preceding one, and so on. The program 
has a ‘visible stack’ so you can easily see what is happening, 

Enter the following program in to your VZ300, run it, and see what 
happens. 


10 HEM THE FORTH TUTOR 

20 REM VZ300 VERSION 

30 REM 

40 C$="":E$=«":NC=0 

50 DIM A{21) ,B{21),C(21),N$(50),M$(50) 


60 FOR J«1 T0 21:A(J)a1E-10:B(J)sA(J): NEXT 
70 CLS 

80 IF INKEY$<>"" THEM 80 
90 GOTO 480 

100 REM »«**««««•••*«»••»**•* 

110 REM PRINT OUT STACK 
120 IF SFLAGsO THEN RETURN 
130 PRINT TAB(5); C$ 

140 PRINT TAB(17)! 

150 PRINT:PRINT TAB{5)i"STACK:" 

160 FOR Q=1 TO 4 

170 IF A(Q)OIE-10 THEN PRINT TAB(8) j Q ; " : " ; 
180 IF A(Q)=1E-10 THEN PRINT TAB(8);Q;«: — 

190 NEXT Q 

200 PRINT TAB( 3) 5 "-" : PRINT 

210 RETURN 

220 REM **»»**§*§»»•*»«»*«*» 

230 REM P0P STACK 
240 EsA(1) 

250 FOR J= 2 T0 21:A(J-1)=A(J):NEXT J 
260 G0SUB 110 
270 A(21)=1E-10 
280 RETURN 

290 REM «*»*«»••»«*#»#**•«»* 

300 REM PUSH STACK 

310 FOR J=1 TO 20:B(J+1)=A(J):NEXT J 
320 FOR J = 2 T0 21 : A { J) = B ( J ): NEXT J 
330 A(1 ) = E 
340 A(21)=1E-10 
350 GOStfB 110 
360 RETURN 

370 REM **»•«»»*»•••«•»**•*•#» 

380 REM STRIP EXCESS SPACES 
390 Q=LEN(C$) 

400 J=0 
410 J = J-*-1 

420 IF MID$(C$,J,1)<>" " THEN 450 
430 IF MID$(C$,J+1,1)<>" » THEN 450 
440 C$sLEFT$(C$,J)+MID$(C|i,J+2):Q=Q-1:G0T0 430 
450 IF J<Q THEN 410 
460 RETURN 

470 REM *•»«•****«*<«••**»**» 

480 PEINT:PRINT:PRINT "PRINT OUT STACK (Y/N)?" 
490 W$sINKEY$:IF W$= n " THEN 490 
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500 SFtAG=0:IF W$s»Y" THEN SFLAG=1 
510 CLS:GOSUB 110 
520 REM 

530 REM INPUT ROUTINE 

540 REM USE @ FOR NEW DEFINITIONS 

550 DF = 0:PRINT " >> OK ":INPUT C$ 

560 IF C$=«" THEN END 
570 C$=C$+" " 

580 GOSUB 380:REM STRIP EXCESS SPACES 

590 REM i**Mt*mi»mm*i* 

600 REM SCAN INPUT 
610 J=0 
620 JsJ+1 

630 IF LEN(C$)=0 AND DF=1 THEN RETURN 
640 IF LEN(C$)=0 THEN 550 
650 IF MID*(C$,J,1)<>" " THEN 620 
660 E$sLEFT$(C$,J-1) 

670 C$=MID${C$,J+1) 

680 REM •*#»***»•»••#*•«» 

690 REM ACTION 

700 IF E$="AB0RT M THEN 530 

710 IF E$="CR" THEN PRINT:GOTO 610 

720 IF E$<> n LLIST" THEN 740 

730 FOR U=NC TO 1 STEP -1:LPRINT N$ (U),M$( U):NEXT :GO 
TO 610 

740 IF E$="5TACK" THEN SFLAG =-SFLAG+1i GOTO 610 

750 REM »*»**H»*it« t *»«* 

760 REM NOW THE FORTH WORDS 
770 KW=0 

780 IF E$s"@" THEN KW=-99:GOSUB 1290:REM DEFINE NEW 
WORDS 

790 IF E$="+" THEN KW=1 

800 IF E$ = "-" AND MID$(C$, 3j2}O n IF" THEN KW = 2 

810 IF E$="«" THEN KW=3 

820 IF E $ = "/" THEN KW = 4 

830 IF E$="MOD n THEN KW=5 

840 IF E$= n /MOD" THEN KW=6 

850 IF THEN KW=7 

860 IF E$="SWAP" THEN KW=8 

870 IF E$="*/" THEN KW=9 

880 IF E$="»/MOD" THEN KW=10 

890 IF E$ = "NEGATE" OR E$="MINUS" THEN KW= 1 1 

900 IF E$="ABS" THEN KW=12 
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910 IF E$="MAX» THEN KW=13 
920 IF E$=»MIN" THEN KW=14 
930 IF EIb^DUP" OR E$ = n 7DUP ,, THEN KW-1«; 

940 IF E$ = "0VER” THEN K W =16 
950 IF E$="PICK" THEN KW=17 
960 IF E$="DROP" THEN KW=18 
970 IF E$s"ROT” THEN KW=19 
980 IF E$ s "ROLL" THEN KW=20 
990 IF E$=". 1 " THEN KW=21 
1000 IF E$ = »,b THEN SCW = 22 
1010 IF E$ = n EMIT" THEN KW=23 
1020 IF E$s"VLIST" THEN KW-24 
1030 IF E$s n FORGET" THEN KW=25 

n TH en kw= 26 

1050 IF E$="KEY" THEN KW=27 
1060 IF E$=»RAND" THEN KW-28 
1070 IF E$s»DO» THEN KW=29 
1080 IF E$="SPACES" THEN KW=30 

N°o=32 E$SM + " 0R E$ = "1 -b OR E$ = «2 + « 0 R E$=«2-" THE 

1100 IF E$ = l >2* n OR E$=«2/ n THEN KW-32 
110 IF E$ = b = « 0R Et="<« OR Ef=«>B"?HEN KW ,1 

1 30° S 'ii.'!:: Sgg-u 

:?i.° s sr! sr.su ss ??«■ 

.160^0» KW-8 GOSOB 1890,1940,2010,2040,1580,1580,207 

* F Kw <17 OR KW>22 THEN 7190 

?; Sii? s , i:>ii T ;iS , ?j?r o ' 8,To - a “o.»» 

i- » S”„ri2:irs ; --?3o,2 | oo,2, ; „ 354 

Ji 5 ? 00 IF A»D ASCC E$) <58 THE» E=VAL(E$) : GOS 

illS ioT5 S 6 C !o* )>57 THE ” G0SI,B 1,,90 ‘ 001 0 57» 

1280 REM 

1290 REM DEFINE NEW WORDS 
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1300 REM USE § T0 GET TO THIS POINT 

1310 REM NOTE WORD NAME MUST NOT BECIN WITH A NUMBER 

1320 IF NC<50 THEN NC=NC+1:REM ALLOWS UP TO 50 NEW 
WORDS 

1330 X = 0 

131(0 X = X+1 

1350 IF MID$(C$,X t 1)0"}" THEN 1370 

1360 R$sLEFT$(C$,X-1):C$sMID$(C$,X+1):GOTO 1 390 

1370 IF X<LEN<C$) THEN 1340 

1380 PRINT "MISSING '; :C$ * »":RETURN 

1390 REM NOW GET NAME OF NEW WORDS 

1400 JsO 

1410 JsJ+1 

1420 IF MID$(R$,J ( 1)s" " THEN 1450 
1430 IF J<LEN(R$) THEN 1410 
1440 PRINT "ERROR IN INPUT":C$="»:RETURN 
1450 N$(NC)sLEFT$(R$,J-1) 

1460 M$(NC)*MID$(R$,J+1) 

1470 RETURN 

1480 REM HHHHIHHHH 

1490 HEM CHANGE DEFINED WORDS INTO DEFINITION 
1500 J=NC+1 
1510 J=J-1 

1520 IF E$ = N$(J) THEN 1550 
1530 IF J>0 THEN 1510 

1540 PRINT "WORD NOT DEFINEDKW=-99:RETURN 
1550 C$=M$(J)+C$ 

1560 RETURN 

1570 REM •**»#»»**«»»«•*»» 

1580 REM TWO NUMBER OPERATIONS 
1590 T1=0:T2=0:T3=0:T4=0:K$="" 

1600 GOSUB 230 :T1=E 
1610 GOSUB 230 : T2 = E 

1620 IF E$="MAX" OR E$="MIN" THEN 1840 
1630 IF E$ = "+" THEN T3 = T2+T1 
1640 IF ETHEN T3=T2-T1 
1650 IF E$= M# " THEN T3=T2«T1 

1660 IF (E$<>"/" AND E$ O n /MOD" AND E$O"M0D") THEN 
1680 

1670 IF T1= 0 THEN PRINT "DIVISION BY 0C$ = RETURN 

1680 IF E$ = "/" OR E$ = "/MOD" THEN T3 = 1NT(T2/T1) 

1690 IF E$ = "MOD" THEN T3 = T1•(T2/T1-INT(T2/T1)) 
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1700 IF E$ = "**" THEN T3 sT2 * T1 
1710 IF E$ = "/MOD" THEN 1750 
1720 IF E$="SWAP" THEN 1800 
1730 E=INT(T3+.5):G0SUB 300:RETUFN 
1740 REM •••*••••••*# 

1750 REM /MOD 

1760 T4 = T1 *(T2/T1-INTCT2/T1)) 

1770 E=INT(T4+.5):G0SUB 300 

1780 E=INT(T3+,5):G0SUB 300:HETURN 

1790 REM «#**•»•»«§#• 

1800 REM SWAP 

1810 Es T1:GOSUB 300 

1820 E=T2:GOSUB 300:RETURN 

I 830 REM •*»*»««•»»*• 

1840 REM MAX AND MIN 

1850 A=T1!BsT2:IF T1>T2 THEN A=T2:B=T1 
1860 Es A:IF E$s"MAX" THEN E=B 
1 870 GOSUB 300 ; RETURN 
1880 REM *••*•***«**• 

1890 REM KW=9 V 

1900 GOSUB 230:P3 = E:GOSUB 230:P2 = E:GOSUB 230:P1 = E 

1910 E=INT(P1*P2/P3):GOSUB 300 

1920 RETURN 

1930 REM **«*#**••«»* 

1940 REM KW=10 •/MOD 

1950 GOSUB 230 : CQ = E:GOSUB 230 :BQ=E:GOSUB 230 :AQ=E 
1960 DQ=AQ*BQ/CQ 

1970 E=INT(CQ*((DQ)-INT(DQ))):GOSUB 300 

1980 E=INT(DQ):G0SUB 300 

1990 RETURN 

2000 REM ###*«•••*#•« 

2010 REM KW=1 1 NEGATE/MINUS 

2020 GOSUB 230:E = -E:GOSUB 300:RETURN 

2030 REM **«*«•»•**•# 

2040 REM KW=12 ABS 

2050 GOSUB 230:E=ABS(E):GOSUB 300:RETURN 
2060 REM »«**»#»««#** 

2070 REM KW=15 DUP 7DUP/-DUP 
2080 GOSUB 2 30 : IF EOO THEN 2100 

2090 IF f E$ ="?DUP" OR E$="-DUP") THEN GOSUB 300:RETU 
RN 

2100 GOSUB 300:GOSUB 300:RETURN 
2110 REM *»«*»«••••»* 
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2120 REM KW=16 OVER 

2130 GOSUB 230 : XW=E:GOSUB 230;YW=E 

2140 E=YW:GOSOB 300:E=XW:GOSUB 300:E=YW:GOSUB 300 

2150 RETURN 

2160 REM «tiitmim 

2170 REM KW=17 PICK/KW*20 ROLL 

2180 GOSUB 230 :FR=E-1 

2190 FOR T=1 TO FR:GOSUB 230:C(T)=E:NEXT T 

2200 GOSUB 230:XR=E:IF KW=17 THEN GOSUB 300 

2210 FOR TsFR T0 1 STEP -1:E=C(T):GOSUB 300:NEXT T 

2220 EaXR;GOSUB 300:RETURK 

2230 REM #*#«***t**«# 

2240 REM KW=18 DROP 
2250 GOSUB 230:RETURN 
2260 REM *««»»*••»*** 

2270 REM KW=19 ROT 

2280 GOSUB 230:G3=E:G0SUB 230:G2=E:GOSUB 230:G1*E 
2290 E=G2:GOSUB 300:E=G3:GOSUB 300:E=G1:GOSUB 300 
2300 RETURN 
2310 REM 

2320 REM KW=21 .' 

2330 X=D 
2340 X = X+1 

2350 IF MID$(C$,X,1 )="»" THEN 2380 

2360 IF X<LEN(C$) THEN 2340 

2370 PRIKT "NO CLOSING ' IN INPUT":RETURN 

2380 PRIKT LEFT$(C$,X-1); 

2390 C$=MID$(C$,X+1) 

2400 RETURN 

2410 REM •*»«#»**•*#» 

2420 REM KW=22 . 

2430 GOSUB 230 

2440 IF EO1E-10 THEK PRIKT E;" "; : RETURK 

2450 PRIKT "STACK EMFTY":PRINT:E=1 E-10:GOSUB 3QO:RET 

URK 

2460 REM #*####**««#* 

2470 REM KW=23 EMIT 

2480 GOSUB 230 : PRIKT CHR$(ERETURK 
2490 REM t»»»#»*»»»»» 

2500 REM KW=24 VLIST 

2510 PRIKT:IF KC=0 THEK 2540 

2520 FOR J=NC TO 1 STEP -1:IF N$(J)<>"" THEU PRIKT H 
$(J), 
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2530 KEXT 

2540 PRIKT f "tn f n/n f n^OD","/MOD""SWAP", 


2550 PRINT 
2560 PRIKT 


2570 PRINT 
2580 PRINT 


"*/%"*/MOD", 

"NEGATE","MINUS","ABS","MAX","MIN","OVER" 
"PICK","DROP ", 

, 'ROT" ) "ROLL n , n . * " , " 1 "EMIT", 


2590 PRINT "VLIST","FORGET", 

2600 PRINT "KEY","DO","LOOP","SPACES","IF","THEK" 
2610 PRINT "DUP","7DUP","-DUP","s",«>" "0=" "0<" 
," 0 >", ’ 


2620 PRIKT "NOT","1"1"2+","2-","2 # " "2/" 
2630 PRIKT "STACK","ABORT","LLIST","RAND"!"CR" 
2640 PRINT:RETURN 
2650 REM 


2660 REM KW= 25 FORGET 
2670 J=0 
2680 J=J+1 


2690 IF J>LEN(C$) THEK PRINT "FORGET":KWs-99:RETURN 
2700 IF MID$(C$,J,1) = " " THEN 2720 
2710 GOTO 2680 

2720 F$=LEFT$(C$,J-1}:C$=MID$(C$,U+1):FLAG=0 
2730 FOR J= NC+1 TO 1 STEP -1 

2740 IF N$(J)=F$ THEN N$(J)="":M$(J)="";FLAG=1:DROP= 
J 

2750 NEXT J 

2760 IF FLAG=0 THEN PRIKT F$j" NOT RECOGNISED" 

2770 IF FLAG=0 THEN C$=MID$(C$,LEN(F$)+1):KW=-99:RET 
URN 

2780 ZN=NC:FOR J=NC TO DROP STEP-1 
2790 N$(J)="":M${J)s"";ZK=2K-1 
2800 KEXT J:NC=ZK 
2810 RETURN 
2820 REM 

2830 REM KW= 26 • (TICK) 

2840 PRINT:E$=MID$(E$,2):FL=0 

2850 FOR J=1 TO NC:IF N$(J)=E$ THEN FL=J 

2860 NEXT J:IF FL=0 THEN PRINT "NOT KKOWN":RETURN 

2870 PRINT "> ";E$ ; " < OKPRIKT:PRINT TAB(2);M$(FL) 


2880 RETURN 

2890 REM «tH**»*»»#*»»»!»*»*»»# 

2900 REM KW=27 KEY 

2910 W$=INKEY$:IF W$ = "" THEN 2910 
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2920 EsASC(W$):GOSUB 300:RETURN 
2930 REM •*»**«*»*»!«#»#*#*«#» 

2940 REM KW=28 RAND 

2950 GOSUB 230:Y1=E:GOSUB 230:Y2=E 

2960 EsINT(RND(0)»Y2+Y1);GOSUB 300:RETURN) 

2970 REM m**m**»*n#»i*i»i 
2980 REM KWs29 DO LOOPS 
2990 REM FIND THE END OF THE LOOP 
3000 JH = 0 
3010 JH= JH+1 

3020 IF MID$(C$,JH,1)<>0 THEN 3040 

3030 IF MID$(C$,JH+1,4)= M LOOP" THEN 3060 

3040 IF JH<LEN(C$) THEN 3010 

3050 PRINT TAB(25);"D0 LOOP ERROR":RETURN 

3060 DF =1 

3070 0$=LEFT$(C$,JH):I$sMID$(C$,JH+6) 

3080 GOSUB 230:L2=E:GOSUB 230:L1=E 

3090 ST=1:IF L2> = L1 THEN STs-1:L1=L1+2 

3100 FOR 0=L2 TO L1-1 STEP ST:REM LETTER 0, NOT ZERO 

3110 C$sO$:GOSUB 570 

3120 NEXT 0:REM LETTER 0, NOT ZERO 

3130 C$=I$:DF:O:RET0RN 

3140 REM »*«##»»•**»#««##*##*§ 

3150 REM KW=30 SPACES 

3160 GOSUB 230:FOR J=1 TO E:PRINT " ";:NEXT JjRETURN 

3170 REM »»•»»**«»*•#»«#•••**# 

3180 REM KH= 31 IF...THEN 

3190 IF LEFT$(C$,2)="IF" THEN C$=MID$(C$,4) 

3200 IF LEFT$(C$,6)="NOT IF" THEN C$=MID$(C$,8}:GOSU 
B 3440 

3210 REM NOW LOOK FOR THE THEN 
3220 BJ=0 
3230 BJ=BJ+1 

3240 IF MID$(C$,BJ,4)="THEN" THEN 3270 
3250 IF BJ<LEN{C $) THEN 3230 

3260 PRINT TAB(25);"NO THEN TO MATOH IF":RETURN 
3270 U$=LEFT$(C$,BJ-1):C$=MID$(C$,BJ+5) 

3280 REM NOW CHECK CONDITION 
3290 GOSUB 230 : K2 = E 

3300 IF LEFT${E$,1)<>"0" THEN GOSUB 230:K1=E 
3310 TRUE = 0 

3320 IF E$="=" AND K2=K1 THEN TRUEsI 
3330 IF (E$="<>" OR E$=") AND K20K1 THEN TRUE=1 
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3340 IF E$="<" AND K1<K2 THEN TRUE=1 

3350 IF E$s">" AND K1>K2 THEN TRUEsI 

3360 IF E$="0s" AND K2=0 THEN TRUEsI 

3370 IF E$ = "OO " AND K2O0 THEN TRUEsI 
3380 IF E$="0<" AND K2<0 THEN TRUEsI 

3390 IF E$="0>" AND K2>0 THEN TRUEsI 

3400 IF TRUE=0 THEN RETURN 
3410 C$=U$+C$ 

3420 RETURN 
3430 REM 

3440 REM NOT - REVERSE CONDITION 
3450 IF E$s"s" THEN E$s"<>":RETURN 
3460 IF E$s"THEN E$="=":RETURN 
3470 IF E$s«<« THEN E$s">":RETURN 
3480 IF E$s">" THEN E$sRETURN 
3490 IF E$="0s" THEN E$="0<>":RETURN 
3500 IF E$="0<" THEN E$ ="0>":RETURN 
3510 IF E $ s"0 >” THEN E$s"0<":RETURN 
3520 PRINT "NOT NEEDS CONDITION":RETURN 
3530 REM 

3540 REM 1+ 1- 2+ 2- 2* 2/ 

3550 GOSUB 230 
3560 IF E$="1+" THEN E=E+1 

3570 IF E$ = " 1-" THEN E=E-1 

3580 IF E$="2+" THEN E=E+2 

3590 IF E$="2-" THEN E=E-2 

3600 IF E$s"2«" THEN E=E»2 

3610 IF E$s"2/ n THEN EsINT(E/2) 

3620 GOSUB 3 00:RETURN 


Thia is what you’ll see: 


PRINT OUT STACK (Y/N)? 

As you can see the program asks you if you want the stack printed out. 
Press the "Y” key the first time you run this, When you do, you’U see the 
top four positions on the stack printed out: 

STACK: 

1 : — 

2 : 

3 : -- 

4 : — 


>> OK 
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The double-hyphen (-) indicates that the stack is empty at that point (or 
the s-heet of paper is blank), You ca n pro ve this by entering a dot (.) after 
the “>> OK’.' The ? means it is waiting for your input. Type in, mAi.. 
sure you leave spaces between each number: 

333 861 123 

Once you press your RETURN key, the process will begin. When you have 
the visible stack turned on (and you can tum it off or on by entering the 
word STACK) you can see the line being processed as follows. First of ali 
the 333 will be taken from the input, and placed on the top of the stack: 

>> OK 

? 333 861 123 
861 123 

333 

STACK: 

1 : 333 

2 : — 

3 : — 

4 : — 


You can see the element of the input which is currently being processed 
printed just above the stack to the right (you can see the 333 there at the 
moment, whereas the material left in the input stili to be processed - 861 
123 — is shown slightly above this and to the left). With a usual FORTH 
compiler, of course, you would not see these things, but we included th»m 
in order to make it easy to understand what is going on (and, of course, you 
can turn them off at any stage if you Jike, shnply by typing in the word 
STACK as part of your input* 

Now follow through the process as the 861 is placed on top of the stack, 
causing the 333 to be pushed down to the second position. On top of this 
goesthe 123. 
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123 


861 


123 


STACK: 

1 : 861 

2 : 333 

3 : — 

4 • __ 

STACK: 

1 : 

2 : 

3 s 

4 : 

123 

861 

333 


>> OK 


Now, we use the ‘dot* (.) to pop (as 

we say in the world of 

FORTH) the top 

number off the stack» and you can 

see the number which 

has been popped 

below the dotted line to the left: 

• 

* 

STACK: 

STACK: 


1 : 861 

1 

: 333 

2 : 333 

2 

: 

3 : — 

3 

: 

4 : — 

4 

: 

123 

861 


V 

STACK: 

1 : -- 

2 : -- 

3 : -- 

4 : -- 




333 >> OK 

? 
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We use more dots to pop the next two numbers off the stack. What would 
happen if we tried to pop off some more numbers, numbers which are not 
there? 


STACK: 

1 

2 

3 

4 


STACK EMPTY 


As you cati see, you get the message Stack empty. 

Using the Mathematical Capabilities 

We will now try out a simple addition sum, and see how it occurs. The sum* 
of course, must be written in Reverse Polish Notation. The sum well use is: 

12 76 + □ 

With this, we are telling the computer to push the numbers 12 and 76 onto 
the stack, then add the two of them together (+) T then pop (using 0 the 
resuit off the stack. 


>> 


OK 

12 76 + . 

76 + . 

+ a 


12 

STACK: 

STACK: 


1 : 12 

1 : 

76 

2 : -- 

2 : 

12 

3 : — 

3 : 

— 

4 ; 

4 : 

““ 


76 


Otice the numbers are on the stack, as the computer works its way through 

the input stream, it comes to the and it knows it needs two numbers 
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to add together, so it pops the top two numbers from the stack, adds them, 
then pushes the resuit of that operation (88, in this case) back onto the 
stack. Finally, the computer comes to the which telis it to pop the top 
value off the stack andprint it out. 


+ 


STACK: 


STACK: 


1 : 

12 

1 : 

* .. 

2 : 

-— 

2 ; 


3 : 

— 

3 : 


4 : 

— 

4 : 

— 




• 

STACK { 


STACK: 

1 : 

88 

1 i — 

2 : 

-- 

2 : — 

3 : 


3 : -- 

4 : 

— 

i* : -- 

88 >> OK 

? 


Here is an addition which includes a positive number (34) and a negative 
one (-14): 


7 34 -14 + . 



-14 + . 

+ a 


34 


-14 

STACK: 

STACK: 


1 : 34 

1 : 

-14 

2 : — 

2 : 

34 

3 : -- 

3 : 


4 : -- 

4 : 

— 
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STACK: 


STACK: 

* 

1 : 

20 

1 : 


2 : 

— 

2 : 

- _ 

3 : 


3 : 

_ _ 

4 : 

— 

4 : 

-- 


20 >> OK 

? 

FOETH arithmetic is very flexible, as well now see. Imagine you ha ve to 
add Uve numbers together, Y ou could do this by entering the numbers, and 
the required operators, in a sequence like the following; 

65 12 + 67 + 15 + 11 + , 

Try it to see what happens. At the end, you'11 see this: 


ST ACK: 
1 
2 

3 

4 


170 >> OK 

7 

Ali the plus signs can be placed at the end of the string of numbers like this: 
65 12 67 15 11 + + + + , 

Follow this through, on-screen, and you'II see it produces exactly the same 
resuit. 

Small Constants 

FORTH is provided with built^in Vords' to add either 1 or 2, to the 
number on the top of the stack, Here is 1 + in action- 

xas 


>> OK 
? 99 1 + 
1 + 


9 9 


1 + 


STACK: 


STACK: 


1 ; 

99 

T : 

-- 

Z t 

-- 

2 : 

-- 

3 : 

... 

3 : 

— 

4 : 

- - 

4 i 

— 


1 + 


STACK: 

1 : 

100 

STACK 

1 

2 : 

-- 

2 

3 : 

-- 

3 

4 : 


4 


100 >> OK 

? 

As was pointed out earlier, the visible stack can be tumed off simply by 
typing in the word STACK, either by itself, or asjpart of an input stream. 
For this next section of the tutorial, Fve tumed the stack off, but you can 
leave it on if you like, to make it easier to understand what is going on. 
Here is 2 + in action: 


? STACK 
>> OK 
? 98 2 + , 

100 >> OK 

To subtract numbers from each other, you — fairly obviously — replace the 
+ sign with a - one. 

? 34 12 * . 

22 >> OK 

? 88 -20 - * 

108 >> 0K 

? -9 -3 - * 

»8 >> 0K 
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The * sign is used for multiplicationi 


? U 1 . 

2$ >> GK 

While the/sign is used for division: 

? 10 3 / * 

3 >> OK 

FORTH works in integers, so the / word leaves only the quotient on the 
stack {3 in this case), To get the remainder, you use the FOETH word 
MOD: 

? 10 3 MOD . 

1 >> OK 

? -10 -3 MOD t 
-1 >> OK 

? 

To get the quotient and the remainder left on the stack t with the quotient 
on top, you use the combined operation word /MOD, followed by two dots 
to pop off both numbers, In this case, 10 3 /MOD . + would produce an 
answer of 3 1 as you should discover when you try it. 

More Combined Operations 

There are also FORTH words involved in the process of combined 
multiplication and division operations. In our next example, we multiply 
24 and 6 together, then divide the resuit of that by 7: 

? 24 6 * 7 / . 

20 >> OK 

We can do it in one operation with */ which, you'U note, does not have a 
space between the * and the/, 

7 24 6 7 V • 

20 >> 0K 

Three operations are combined in the operations triggered by the word 
*/MOD, which leaves both the quotient and the remainder on the stack 
(with the quotient on top): 
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? 24 6 7 */M0D , . 

20 3 >> 0K 


As FOETH works in integers, it is necessary to approximate floating point 
numbers when they are provided. A good approximation to FI, for 
example, is provided by the fraction 355/113 (which would be expressed in 
FOETH as 355 113 4* We can use this knowledge to work out the 
drcumference of a circle, give the diameter, as this example, with a 
diameter of 56, demonstrafces: 

7 56 355 1 13 f / . 

175 >> OK 

All FORTH operations, in the end, more or less come down to pushing 
values on, and popping them from, the stack, 

The Voeabulary Widens 

FOETH is provided with many, many words to manipulate the values on 
the stack, in addition to those which allow you to use it as a (rather clumsy) 
calculator, 

The word ** is used to raise numbers to a power: 

7 7 3 •* ♦ 

343 » 0K 

NEGATE multiplies anumber by minus one: 

7 41 NEGATE * 

-41 >> OK 


There are two ‘Standard’ versions of FORTH, fig-FQRTH (from the Forth 
Interest Group) and FORTH-83, The Tutor adheres to the FORTH-83 
Standard, but allows the use of the two fig-FORTH words, The first of 
these is MINUS which has exactiy the same effect as NEGATE: 

7 41 MINUS . 

-41 >> 0K 

ABS returns the absolute value of a number; 


? 125 ABS , 
125 >> 0K 

7 -125 ABS * 
125 >> 0K 
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The words MAX and MIN retum the maximum and minimum of the top 
two numbers on the stack respecti vely* leaving just the selected number 
on the stack: 

? 12 -9 MAX , 

12 » OK 

7 12 -9 MIN . 

-9 >> OK 

? -12 -9 MAX * 

-9 >> OK 

? -12 -9 MIN , 

-12 >> OK 

Seeing Double 

The FOETH word DUP duplicates the top number on the stack, and 
places the copy above the original number* as you can see here: 


? 12 


12 


DUP 


STACK: STACK: 

1 : 12 i 

2 : — 2 

3 : 3 

U : — li 


>> OK 
? DUP 


DUP 

STACK: 

1 : 12 
2 : 

3 : 

4 ; 


DUP 

STACK: 

1 : 12 
2 : 12 

3 : — 

4 : — 


>> OK 
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DUP is very useful when you need to double a number (DUP +), square it 
(DUP *)* cube it (DUP DUP • *) or even quadruple it (DUP * DUP *). Let's 
see the stack in action doubling a number: 


+ * 

STACK: 

DUP 

+ * 

STACK: 

DUP 

1 : 

17 

1 : 

17 

2 : 

12 

'2 : 

17 

3 : 

12 

3 : 

12 

4 : 

— 

4 : 

12 


* 

STACK: 

+ 

STACK: 

+ 

1 : 

17 

1 : 

12 

2 : 

12 

2 : 

12 

3 : 

12 

3 : 


4 : 

—, 

4 : 

— 



+ 


m 

STACK: 


STACK: 


1 : 

34 

1 : 

12 

2 : 

12 

2 : 

12 

3 2 

12 

3 : 


4 : 

-- 

4 : 

- — 


34 >> OK 


Here are some additional DUP operations* this time with the stack turned 


>> OK 

? 12 DUP * , 
144 >> OK 


? 12 DUP DUP * * . 
1728 >> OK 
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Flipped Over You 


The word OVER is used when you want to duplicate the second value on 
the stack, rather than the first one: 


? 12 33 OVER 
33 OVER 


STACK: 

1 

2 

3 

4 

12 

12 


OVER 

STACK; 


1 

12 

2 


3 

■» ■■ 

4 

- - 


STACK: 

1 

2 

3 

4 

OVER 

12 


OVER 

STACK; 


1 

33 

2 

12 

3 

-- 

4 

-- 


OVER 


33 


STACK: 

1 

2 

3 

4 


33 

12 


STACK; 

1 

2 

3 

4 

OVER 


OVER 

STACK: 


1 

33 

2 

12 

3 


4 

— 


STACK; 


1 : 

12 

2 : 

33 

3 : 

12 

4 : 

— _ 


>> OK 


To select any number on the stack, you use the word FICK, which is 
preceded by a number* This number (3, in the example which foliows) telis 
the computer to select the 3rd number on the stack, and duplicate it on top 
of the stack: 

? 3 FICK 
PICK 

3 FICK 


STACK: 


1 : 

3 

2 : 

3 

3 : 

72 

4 ; 

23 


STACK: 

1 

2 

3 

4 

PICK 

72 

23 

8 

1 


PICK 

STACK: 


1 

8 

2 

1 

3 

12 

4 

33 



PICK 

STACK: 

1 : 

72 

2 : 

23 

3 : 

6 

4 : 

1 


STACK: 


1 : 

3 

2 : 

72 

3 : 

23 

4 s 

8 


STACK: 

1 

2 

3 

4 

PICK 

23 

8 

1 

12 


PICK 

STACK: 


1 

23 

2 

8 

3 

1 

4 

12 

PICK 


STACK: 


1 : 

3 

2 t 

72 

3 : 

23 

4 : 

8 
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PICK 


PICK 


STACK; 

1 : 

3 

STACK: 

1 : 

23 

2 : 

72 

2 ; 

3 

3 : 

23 

3 : 

72 

4 ; 

8 

4 : 

23 


>> OK 

DROP simply gets the computer to drop the first number on the stack (but 
not, unlike the dot, printingit out): 

? DBOP 

DBOP 

STACK: 

1 : 3 

2 : 72 

3 = 23 

4 : 8 


>> OK 


SWAP causes the top two numbers on the stack to change places: 


? SWAP 





SWAP 


SWAP 

STACK: 


STACK: 


1 : 

72 

1 ; 

23 

2 : 

23 

2 : 

8 

3 : 

8 

3 : 

1 

4 : 

1 

4 : 

12 
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STACK: 

1 : 

SWAP 

3 

STACK: 

1 : 

SWAP 

72 

2 : 

23 

2 : 

3 

3 : 

8 

3 : 

23 

4 ; 

1 

4 : 

8 


» OK 


The FORTH word ROT rotates the third number on the stack up to the 
top (but note that it does not leave a copy of the number in its original 
position); 

? BOT 


ROT 

STACK: 

1 : 3 

2 : 23 

3 : 8 

4 : 1 


BOT 

STACK: 

1 : 23 
2 : 8 

3 : 1 

4 : 12 


ROT 

STACK: 

1 : 8 
2 : 1 

3 : 12 

4 : 33 


ROT 

STACK: 

1 : 3 
2 : 8 

3 : 1 

4 : 12 


ROT 

STACK: 

1 : 72 

2 : 3 

3 : 8 

4 : 1 


BOT 

STACK: 

1 : 23 

2 : 72 

3 : 3 

4 : 8 
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EOLL works somewhat Mke PICK, aHowing you to move any number of 
your choice to the top of the stack: 


4 ROLL 
ROLL 

STACK: 

1 

2 

3 

4 

4 

4 

23 

72 

3 


ROLL 

STACK: 


1 

12 

2 

3 

3 

8 

4 

1 



ROLL 

STACK: 

1 : 

8 

2 : 

t 

3 : 

12 

4 : 

33 



ROLL 

STACK: 

1 : 

72 

2 : 

3 

3 : 

1 

4 : 

12 



ROLL 

STACK: 

1 : 

23 

2 ; 

72 

3 * 

3 

4 : 

6 



ROLL 

STACK: 

1 : 

3 

2 : 

8 

3 : 

1 

4 : 

12 



ROLL 

STACK: 

1 : 

1 

2 ; 

12 

3 i 

33 

4 : 

12 



ROLL 

STACK: 

1 : 

23 

2 : 

72 

3 : 

3 

4 : 

1 
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ROLL 


ROLL 


STACK; 


STACK; 


1 : 

23 

1 : 

8 

2 : 

72 

2 ; 

23 

3 : 

3 

3 : 

72 

4 ; 

1 

4 : 

3 


>> OK 

? 


Defining Your Own Words 

The most exdting thing about FORTH is the ease with which new words 
can be defined, and well look at that next. 

You'U recail, from the arithmetic examples you’ve tried, that the dot (.) is 
used to pop the top value off the stack and print it out. There may be tinu» 
when you want to print out the value, but you stili want the value on the 
stack afterwards. Dot, as you ha ve seen, is destructive. That is, you lose 
the top number by popping it off. 

As we’ve seen, the FORTH word DUP (for ‘duplicate’) gets around this, by 
duplicating the top number on the stack, and pushing a copy of it on top of 
the first one (so positions one and two on the stack now have the 
value). Then, you can pop the number off to print it out, but leave behind a 
copy of it, stili on top of the stack. 

We can create a word of our own, PRINTOUT. to duplicate the top number 
on the stack, then pop off the top value and print it out, You create words 
with an input as follows: 

? § PRINTOUT DUP , ; 

You start defining a word with an @ Symbol (although real FOETH u&es :) 
and follow it with a space (you'11 recail that spaces are vitalin ali aspects of 
FORTH) and then put the words (in this case DUP and .) that you want in 
your definitiori, followed by a sexni-colon to signal that the word has been 
defined. 


Then t from that point onwards, you could just use PRINTOUT in your 
FORTH programs, and your computer will automatically perform the 
DUP . for you, The Tutor prcgram allows you to define up to 50 new 
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words. This should be more than enough for your needs. 


Here is our PRINTOUT word in action: 

? 34 12 + PRINTOUT 

12 + PRINTOUT + PRINTOUT 



34 


12 

STACK: 


STACK: 


1 

34 

1 : 

12 

2 

1 

2 ; 

34 

3 

12 

3 : 

1 

4 

33 

4 : 

12 

PRINTOUT 

PRINTOUT 



+ 



STACK; 


STACK: 


1 

34 

1 : 

t 

2 

T 

2 : 

12 

3 

12 

3 : 

33 

4 

33 

4 : 

12 


PRINTOUT 



OOP 

STACK: 


STACK; 


1 : 

46 

1 : 

1 

2 : 

1 

2 : 

12 

3 = 

12 

3 : 

33 

4 : 

33 

4 : 

12 



DUP 


DUP 

STACK: 


STACK: 


1 : 

46 

1 : 

46 

2 : 

1 

2 ; 

46 

3 : 

12 

3 : 

1 

4 : 

33 

4 : 

12 


STACK: 

1 : 46 

2 : 1 

3 : 12 

4 : 33 


46 >> OK 

? 

If you wanted to define a word which would aquare the number on top of 
the stack, make a copy of the resuit, then print out the answer, you could 
define the word as follows: 

? @ SQUARE DUP • DUP , j 
>> OK 

In this word, SQUARE is the name of the word you are defining. DUP 
duplicates the top number on the stack, then uses * to multiply it by itself. 
The answer is then on top of the stack, where DUP . copies the answer, 
then prints it out, leaving a copy of the answer on the stack. Note you can 
call a word in our FORTH anything you like, so long as it begins with a 
letter andnotwithanoperator(+, —, * or/) ora number. 


Now this brings us to an even more exdting part of FORTH. You can see 
that the last part of our definition of SQUARE (DUP .) is the same as the 
definition of PRINTOUT. Why don’t we use PRINTOUT in our SQUARE 
definition? You can do it simply by adding this word to the dictionary: 

? @ SQUARE DUP • PRINTOUT ; 

>> OK 

Let’s see it in action: 


? 12 SQUARE 




SQUARE 


* PRINTOUT 


12 


DUP 

STACK: 


STACK: 


1 : 

12 

1 : 

46 

2 : 

46 

2 : 

1 

3 : 

1 

3 : 

12 

4 : 

12 

4 : 

33 
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* PRINTOUT 



DUP 

STACK: 

1 : 

12 

2 : 

46 

3 : 

1 

4 : 

12 


PRINTOUT 

« 


STACK: 


1 : 

12 

2 : 

46 

3 : 

1 

4 : 

12 


PRIKTOOT 


STACK: 

1 

2 

3 

4 

i 

144 

46 

1 

12 


# 

STACK: 

1 

144 

2 

46 

3 

1 

4 

12 


144 » OK 

? 


» PRINTOUT 



DUP 

STACK: 

1 : 

12 

2 : 

12 

3 ! 

46 

4 : 

1 


PRINTOUT 


STACK: 

1 : 
2 : 

3 : 

4 : 

* 

46 

1 

12 

33 

* 

DUP 

STACK: 

1 : 

144 

2 : 

144 

3 : 

46 

4 : 

1 


You can see that when the Tutor comes to process a defxned word, the 
program tums the defined word back into its definition. 


Here*s another run of SQUARE, with the stack printing turned off. 

? STACK 
>> OK 

? 9 SQUARE 
81 >> OK 

? 

FORTH always uses the most-recentiy defined ver sion of a word t 
searching its dictionaiy from the newest word* to the oldest, so we can 
safely simply redefine a word, and know it will use the newest version of 
that word. 

You can see from this inclusion of PRINTOUT within SQUARE a hint of 
the real magic of FORTH* You can keep adding more and more words to 
your dictionary, which is made up of the words the language comes with, 
plus the words you add. 


Getting More Involved 

You can use the word SQUARE in the definition of further words. CUBE, 
and N • *6 (to raise a number to the sixth power) can be built on your earlier 
work: 


>> OK 

? g PRINTOUT DUP . ; 

>> OK 

7 g SQUARE DUP * PRINTOUT ; 

>> OK 

? e CUBE DUP SQUARE * PRINTOUT ; 

>> OK 
7 3 CUBE 
9 27 >> OK 

7 @ N««6 SQUARE CUBE PRINTOUT ; 

>> OK 
7 3 N**6 

9 81 729 729 >> OK 

? 
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And Now For A Vlist 


FORTH comes with the command VLIST which puts the whole current 
vocabulary on the screen, starting with the most recently defined word. If 
you did a VLIST right now (entering the word as a Standard input after 
>> OK) you’d see this: 

>> OK 


? VLIST 


N*#6 

CURE 

SQUARE 

PRINTOUT 

+ 

_ 


/ 

HOD 

/MOD 

1 « 

SWAF 

*/ 

# /MOD 

NEGATE 

MINUS 

ABS 

MAX 

HIN 

OVER 

PICK 

BR0P 

ROT 

ROLL 

r 

t 

# 

: 

t 

EMIT 

VLIST 

FORGET 

KEY 

DO 

LOQP 

SPACES 

IF 

THEN 

DUF 

?DUF 

-DUP 

s 

< 

> 

0 = 

0 < 

G> 

NOT 

1 + 

1- 

2 + 

2 - 

2 « 

2 / 

STACK 

ABORT 

LLIST 

CR 

RAND 


>> OK 

? 
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From the VLIST you can the final five words are STACK, ABORT, 
LLIST, RAND and CR. These are not Standard FORTH words, but have 
been inciuded with the Tutor as they make developing your own programs 
much simpler than might otherwise be the case. FORTH differentiates 
between a Carriage Return, which forces a line*feed, and use of the 
RETURN key. To emulate this, we have the word CR t to stand for 
Carriage Return. It can be used within a DO LOQP (which we T ll be looking 
at shortly} to imitate the ciear screen command, CLS, in VZ300 BASIC: 

? § CLS 25 1 DO CR LOOF ; 

When you enter CLS the screen will ciear by scrolling upwards. There may 
well be other BASIC programming words you wish to emulate with the 
Tutor, 

The non-standard vocabulary also includes ABORT to eancel action 
(usually in conjunction with an IF/THENJ; LUST to get a hard copy 
printout of all the words you Ve defined, and their meamngs; and STACK 
(as mentioned earlier) to tum the printing of the visible stack of f and on. 

You can include text printout in FORTH programs with the word dot 
quote {.*}, followed by a space, and then the text. AU text material up to the 
close quote 0 will then be printed out, much as the PRINT command 
works in BASIC. We can use this knowledge to produce a more user- 
friendly definition of SQUARE: 

>> OK 

? @ SQUARE DUF . * THE SQUARE OF 1 , DUF * . * IS f PRINTOUT 

>> OK 

? 5 SQUARE 

THE SQUARE OF 5 IS 25 >> OK 

? 

Another VLIST would show that the second SQUARE is now first on the 
list. FORTH will always execute the most-recently defined ver sion of a 
word s so our new SQUARE will be defined so long as it is left in the 
dictionary (note that some FORTH Systems use a double quote — as in 
— where the Tutor uses .*). 


Just in case you forget what meaning you've assigned to a word, you can 
use the FORTH word tick 0. Generally in FORTH this just replies 
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name^of_word OK if the word has been defined, but with the Tutor it not 

only retums the word OK, but also telis you the meaning you have given to 
a word: 

? 1 SQUARE 

> SQUARE < OK 

DUP . 1 THE SQUARE OF * , DUF * , » IS 1 PRINTOUT 

>> OK 

7 f PRINTOUT 

> PRINTOUT < OK 
DUP * 

>> OK 

? 


To get a word owr of your dictionary, use the FGRTH word PORGET, 
Note, however, that whenyou FORGET a word, aH the words defined prior 
to that definition will aiso be forgotten, Look what happens when we teli 
our system to FORGET SQUARE: 

>> OK 


? FORGET SQUARE 


>> OK 


? VLXST 


PRINTOUT 

+ 



/ 

MOD 

/MOD 


SWAF 

*/ 

*/MQD 

NEGATE 

MINUS 

AES 

MAX 

MIN 

OVER 

FICK 

DROP 

ROT 

ROLL 

i 

f 

* 

* 

EMIT 

* 

VLIST 

FORGET 

KEY 

DO 

L OOP 

SFACES 

IF 
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/ 


“DUP 

s 

< 

> 

0 = 

0< 

G> 

NOT 

1 + 

1- 

2 + 

2- 

2* 

2/ 

STACK 

ABORT 

LLIST 

RAND 

CR 



>> OK 

? 


Getting The Key 

KEY works like INKEY$, waiting till you touch a key, then putting the 
ASCII code of the character an top of the stack. Here it is in use in the 
definition of NUMBER—KEY which allows you to touch a number key, 
and this then puts this number on the stack: 

>> OK 

7 @ NUMBER-KEY KEY 48 - PRINTOUT j 
>> OK 

? NUMBER-KEY 
6 >> OK 

? 

word WO-NuSbS tW °' digit nUmter ' SUCh “ 6? ’ y ° U 00111(1 use 

? >> ™°~ NDMBERS NUMBER-KEY io * NUMBER-KEY + PRINTOUT 

? TWO-NUMBERS 
6 7 67 >> OK 

? 

18 j be '°PP° site ' of KEY > in that it prints out the character whose 
ASCII codeprecedes it, so 42 EMIT would print out an asterisk. 


7 42 EMIT 
* >> OK 
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SPACES can be used to format output, as it takes the top number off the 
stack, and prints out that number of spaces* You can emulate the BASIC 
command TAB using SPACES: 


7 § TAB SPACES ; 

>> OK 

? 12 TAB *' TEST r 

TEST >> OK 
? 20 TAB . » TEST r 

TEST >> OK 

? 5 TAB * » TEST * 

TEST >> OK 

The usefulness of being able to define words is iilustrated by the following 
example* Suppose you want a word called CIRCLE, which would take a 
number off the stack and fcreat it as the diameter of the circle, printing out 
the circumference of the circle; youd only need to enter something like 23 
CIRCLE to get your computer to print out the circumference of a circle 
with a diam ter of 23 units* 

The word CIRCLE could be defined as foliows (where, as before, 355/113 is 
used as an integer approximation to PI, keeping in mind that most 
FORTHs work in mtegers); 

@ CIKCLE 355 1 13 V ■ . 1 IS THE CIRCUMFERENCE' 

If you did this, you’d only have to enter a number (or allow the computer to 
take one off the stack) for the diameter, and the computer would do the 
rest* You 11 find you should have a lot of fun defining words and using them 
with this program on your VZ300. 


DO Loops 

A DO LOOP is somewhat like a FGR/NEXT loop in VZ300 BASIC. It 
repeats everything which comas between the words DO and LOOP. The 
number of repetitions is the difference between the top two numbers on the 
stack* If the second number on the stack was 11 and the top number was 1, 
the loop would be run through ten times* 

YoiTre sure to be familiar with IF and THEN from YZ BASIC and 
although they perform much the same function in FORTH, the order in 
which they are placed in a statement may seem strange. 


The condition being tested comes before the word IF, and if the condition 
is evaiuated as true, ah the words between IF and THEN are carried out. If 
it is evaiuated as false* action moves aiong the input stream beyond the 
THEN* IF/THEN in FORTH can test =,<>,<,> and can check as well to 
see if the number on top of the stack is equal to, not equal to, less than or 
greater than zero* The word NOT causes IF/THEN to look for the opposite 
condition so NOT — is the same in FORTH as the BASIC < > * 


? 7 1 DO 8 , LOOP 
8 6 8 8 8 8 > > OK 

? 

You'11 find the Tutor program is well fumished with error messages, and 
these (aiong with the visible stack) should make it pretty easy to keep 
aware of what is going on in the program* 


In Summary 


YouTl recall we started by discussing the principle of the stack, and then 
looked at the arithmetic operators (+ - * and A which take the top two 
numbers off the stack, and then add, subtract the first one from the 
second, multiply them together or divide the second number by the top 
one. In ali cases, the resuit is pushed onto the top of the stack* 

MOD does a division like /, but where / puts the quotient on the stack, 
MOD puts the remainder onto it* /MOD does a di vision again, but puts the 
quotient and remainder on the stack, with the quotient on top. */ does a 
*multiply then divide' leaving the quotient. It needs three numbers from 
the stack. YMOD performs hke % returning the quotient and remainder, 
with the quotient on top* 


** takes two numbers from the stack, and raises the second number to the 
power of the first one on the stack, returning the resuit to the stack. 
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ABS performa just like ABS in BASIC, returning the absolute value of the 
number to the top of the stack. 

MAX and MIN compare the top two numbers on the stack, leaving only 
the largest (MAX) or smallesfc (MIN) there. DUP we've met before, and it 
duplieates the top value on the stack. ?DUP works like DUP, but only if 
the value ia not zero (the fig-FORTH equivalent is -DUP so this is also 
recognised), OVEE takes the second number on the stack, copies it, and 
puts a copy of that on top of the stack, This means if the top number was A 
and the second one was B, an OVER would make the stack read (from top 
to bottom) BAB. 

PICK must be preceded by a number, This command selects the numbered 
dement on the stack (so if the number which preceded it was 6, PICK 
would seiect the sixth element, counting down), then copies it onto the top 
of the stack. DROP deletes the top number on the stack, and SWAP 
causes the two numbers on the stack to change places. ROT {for ROTate) 
brings the third element on the stack up to the top, moving the former 
items one and two down a position each, 

ROLL is like PICK, in that it must be preceded by a number. It brings this 
numbered element to the top, deleting it from its original position, and 
moving ali other elements down one position, VLIST lists out every word 
the program understands, with user-defined words first, from the newest 
one to the oldesL 

FORGET must be foilowed by the name of the word you ha ve defined. 
Remember, not only does this cause the program to delete the word and its 
definition from the dictionary, but ali words defined after that one are also 
deleted, FORGET must therefore be used with caution. 

KE Y works like INKEY8, waiting till you touch a key, then putting the 
ASCII code of the character on top of the stack, The command £ dot' (,) 
pops the top element off the stack and prints it ouf, while £ dot^quote' (,') is 
used to preface text output. It must be foilowed by a space. FORTH 
regards as text ali material which follows dot-quote up to the next quote f) 
which can follow the text without a space preceding it (many FORTHs use 
Vratherthan/), 

FORTH uauaUy includes the word called *tick', which is a single quote 
mark ( J ) which is foilowed by the name of a word, If that word is in the 
dictionary, the computer will print out name OK to show the word does 
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exist As well, in my FORTH, tick prints out the complete definition of the 
word, so if you Ve forgotten what meaning you assigned to a word 'name 
will print it out for you on the screen. 

EMIT is the ‘opposite' of KEY, in that it prints out the character whose 
ASCII code procedes it, so 42 EMIT would print out an asterisk, 

SPACE S can be used to format output, as It takes the top number off the 
stack, and prints out that number of spaees. FORTH allows for a ‘carriage 
retura’ (which is not the same as pressing the RETURN key) and we have 
imitated this by allowing you to include the non-FORTH word CR which 
simply moves print output to the start of the next line. This is also helpful 
in formatting output. 

A DO LOOP is somewhat like a FOR/NEXT loop in BASIC, It repeats 
everything which comes between the words DO and LOOP, The number of 
repetitions is the difference between the top two numbers on the stack, If 
the second number on the stack was 7 and the top number was 1, the loop 
would be run through six times, 

That brings us to the end of this section of the book. Work through it a 
number of times unfcii you can use ali the words confidently, and write 
some programs of your own. 


Further Reading 

The two best books weVe come across on FORTH are: 

Starting FORTH — Leo Brodie, Forth Inc, (Prentiee-Hall, 1981) 
FORTH Programming — Leo J Scanlon (Howard Sams, 1982) 
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Section Five 
Sorting and Searching 


Many computer programs are dedicated to the laudable aim of bringing 
order into an increasingly chaotic universe. Industrious little routines 
spend their time sorting numbers and names into order, comparing them, 
taking actions on the basis of those comparisons, and assigning the results 
of their deliberations into neatly-defined pigeon holes, 

However, order is not always wanted. Just suppose you wanted to survey 
a randomly-selected 10% of the registered voters of Wagga Wagga. It 
would not do simpiy to take the first 10% of the names on the list, nor 
those who live in 10% of the reaidential part of town. To get a fair sample, 
which was genuinely random, you would need to select the names on some 
other basis. 

In this section, we look first at a couple of routines for selecting items at 
random from a List, Then, ITl be looking at three ways of finding specific 
elements of data within lists. The metbod chosen can radically alter the 
time in takes for an item in a list to be located, 

The Non-Reeurring Shuffle 

We'll start by supposing wanted to question three Wagga Wagga 
residents in each Street. Suppose, further, that each Street in the town only 
has houses numbered one to ten. How would you go about deciding, for 
any particular Street, which three numbers you would go to? One way 
would be to generate lists of random numbers, between one and ten, and go 
to the first three house numbers from that list. But what would you do if 
your random number generator came up with a list like 5,3,5,3,5? You need 
a routine which, while producing random numbers, does not produce each 
one more than once. 

It is pretty simple to create a routine to fili an array of ten elements with 
random numbers in the range one to ten. It is also simple* although it 
requires a bit more thought, to write a routine which filis the array with 
numbers chosen randomly in the range one to ten, with each number 


appearing once, and once only, in randomly-determined positions. 


If you run this program, and enter the number '10' when prompted to do so 
by the question “Range of numbers?”, you'11 see that it rapidly produces 
the numbers you need. The elements of the B array keep track of whether 
or not a number has been previously produced: 


10 REM MOSES/0AKF0RD SHUFFLE 
20 REM N0N-RECURRING RANDOM NUMBERS 
30 CLS:INPUT "RANGE 0F NUMBER";N;CLS 
40 DIM A (N) 

50 FOR J=1 T0 N: A ( J) = J:NEXT J 
60 INPUT "PRESS RETURN T0 START";A$ 

70 FOR J=N T0 1 STEP -1 
80 T= RND{J) 

90 TEMP = A(T):A(T)=A(J): A { J)sTEMF 
100 NEXT J 

110 SOUND 20,3:PRINT "FINISHED" 

120 FOR TO N:PRINT A(J),:NEXT J 

Sequentia! Searches 

Suppose, instead of wanting a sample chosen at random from the whole 
population of Wagga Wagga, you wanted to question those who had 
reported incomes inexcess of $20,000 a year in the last census. And further 
suppose that no list had been made, in numerical order* of income size. To 
locate those in the income bracket you want, you*d ha ve to go through the 
whole census output, figure by figure, to isolate the ones you wanted. 

And, sad to say, a computer would have to do the same thing* If the list is 
disordered* there is no way of cutting short the process of going through it* 
element by element* until the required one is found. 

The next program demonstrates a sequential search. A variation of 
the Moses/Oakford shuffle routine is used to fiU an array with randomly- 
generated numbers, and then the program looks for them: 

10 REM SEQUENTIAL SEARCH 
20 CLS 

25 INPUT "HOW MANY ELEMENTS T0 SEARCH THROUGH";Q 

30 CLS:DIM A(Q) 
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40 INPUT "PRESS RETURN T0 BEGIM";H$ 

50 CLS:FOR 1 TO Q:A(J} = J:NEXT J 
60 FOR J=Q TO 1 STEP -1:T=RND(J) 

70 TEMP=A(T):A(T)=A(J):A(J}sTEMP:NEXT J 
80 CLS 

85 INPUT "ENTER NUMBER TO BE SEARCHED FOR ";N 

90 N-INT(N}: IF N<1 OR M>Q THEN 80 
1TO X = 0 

120 X = X+1:IF A{X)sN THEN 150 
130 IF X<Q THEN 120 

140 PRINT "I CANNOT FINI)"N: GOTO 160 

150 SOUND 25 f 3:PEINT "SEARCH COMPLETE" 

155 PRINT "IT WAS AT FOSITION"X 

160 PRINT "PRESS RETURN FOR A NEW SEARCH" 

170 INPUT S$:G0TQ 80 

What is the reiationship between the number of items in the list, and the 
time it takes to locate any one of them? A momentis thought will show 
that if there are N items t on average half the time the element youte 
lookmg for will be in the first half of the list, and the rest of the time it will 
be in the second half. That is, the ‘average position’ (to use the term very 
loosely) of the item you 3 re looking for will be exactly half-way through the 
list, The longer the list* the longer it will take to reach the half-way point, 
so — on average — it takes N/2 time to search sequentially through a list of 
N items. 

However, in real life, we rarely deal with completely random lists T in which 
every item is needed an approximately equal number of times. 

As I live in an extremeiy low-tech household, the ten or so telephone 
numbers I use most often are written on a piece of cardboard near the 
phone (no autodial facilities for me), If I bothered to log the calls I made in 
any four-week period, I am sure that one or two of them would be used far 
more times than the rest. Of the remainder, perhaps three or four would be 
the next most-often used, with the final few hardly e ver being used, Your 
telephone usage is probably very much the same. 

Now t assume I had my telephone directory on disk, and it eontained some 
1000 names and numbers, added from time to time over the years. 
Whenever I needed a number, the computer would have to search through 
the list. And, if my two most-often-used numbers were right at the end of 
the list, it would always take the computer close to the maximum possible 
time to find them, A list which 'knew' which elements were needed more 
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often than others, and could re-arrange itself so that often-used items were 
closer to the starfc of the list than the end, would be very useful. Then, at 
the end of each day*s work, I could resave my directory on disk, and 
eventually the numbers I called every day would be at the start of the list, 
where they would be found almost instantly from the 1000 numbers, and 
those I used rarely would be closer to the end of the list. 

For a more realistic example of the usefulness of a self-organising list, 
imagine a car parts warehouse where every item in stock has a reference 
number, However, most people who ring up to find out if an item is in stock 
do not use the warehouse’s reference number, preferring instead to say 
things like “a rear wheel brake shoe for the 1968 modeT, To save having to 
look up, in some vast ledger, the relevant reference number so an order can 
be raised, the warehouse has a computer system set up, The clerk types in 
“brake shoe, rear, 1968*\ the computer searches through its thousands of 
parts, and eventually prints up on the screen “IV663” as the part number 
which the clerk writes onto the order, 

Now, there will be some parts which will be asked for far more often than 
others, Brakes, for example, wear out on ali cara, so there will be a constant 
cail on those parts, Other things, such as a replacement winder for the left 
rear window, are probably requested far less often. So if the ‘rear brake 
shoe' is near the end of the computeris list of parts, it will take an 
unnecessarily long time to find out that the part number is “IV663”, 
compared to the time it would take if this particular part was closer to the 
start of the list , 

Our next program, the Self-Organising Search, goes some of the way 
towards solving this problem, Once it finds a requested item (X in this 
case, which is located at element number P), it swaps it with the item which 
foliows it, moving it closer to the start of the list, You can test this 
program by asking for the same item over and over again, seeing how it 
moves closer to the start of the list each time: 


10 REM SELF-ORGANIZING SEARCH 
15 CLS 

20 INPUT "HOW MANI ELEMENTS T0 SEARCH THROUGH" 

30 CLS:DIM A(N+1) 

40 PRINT "PLEASE STAND BY,,," 

50 FOR J=1 TO N:A(J)= J:NEXT J 
60 FOR J=N T0 2 STEP -1:T=RND(J) 

70 TEMP=A(T):A(T)sA(J): A( J)sTEMP:NEXT J 
80 CLS 


8 5 INPUT "NUMBER TO BE SEARCHED FOR";X 
90 X = INT(X}: IF X<1 GR X>N THEN 60 
110 A{N+1}=X 
120 F = 0 
130 F=P+1 

140 IF A(P)=X THEN 170 
150 IF P<N THEN 130 

160 FRINT "ELEMENT NOT FOUND "i GOTO 220 
170 IF P-1 THEN 210 

180 TEMP = A(F-1):A(P-1) = A(P):A(P)=TEMP 
200 PsP-1 

210 PRINT «IT IS AT ELEMENT";P 
220 PRINT «PRESS RETDRN" 

230 INPUT J$:GOTO 80 

Binary Searchiug 

If I asked you to guess a number I was think of, between one and 109, 
you’d probably start by saying “50”. When I said “Higher”, your next 
guess would then sensibly be ' 4 75” A reply of “lower” would prompt you 
to guess “62” or “63” and so on, until you'd nairowed down the field to the 
correct number. 

Even though you may not have known it, you were conducting a binary 
search for the needed number, The binary search is much faster than fche 
sequentiai search, and is ideal in any case when the items you are searchiug 
through are in order. If you had a list of Wagga Wagga incomes, ranked 
from my income level of $110.07 a year, up to $245,000 and you told the 
computer to find the first occurrence on the Est of $20,000, a binary search 
would probably find the $20,000 before a sequentiai search did so. 

The binary search program works in exactly the same way as you would 
when trying to guess the number I was thinking of between one and 100, It 
compares X (the number youYe looking for) with the middle element of the 
liat. If they are the same, the search is over, and the progbram goes on to 
teli you where the needed element is in the List, If the middle element is not 
the item you are looking for, the comparisons teli it which half of the list to 
examine next. 

It searches this half in the same way, starting by looking at the middle 
element. In the program, the variables L and R stand for *left* and *right > 
of the section of the list being examined: 
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10 REM BINARY SEARCH 
20 CLS 

25 INPUT "H0W MANY ELEMENTS TO SEARCH THROUGH";N 

30 CLS:DXM A(N),Q(N),C(N) 

40 PRINT "PLEASE STAND BY*,," 

50 FOR J=1 TO N:A(J)= RND{J):NEXT J 

60 FOR J=1 TO N:C(A(J))=C(A{J))+1:NEXT J 

70 FOR J=2 TO N:C(J)=C(J)+C(J-1):NEXT J 

80 FOR K=N TO 1 STEP-1 

90 TEMF=A(K):JsC{TEMP}:Q(J)*TEMF 

100 C(TEMP)sJ-1:NEXT K 

110 FOR J=1 T0 N:AC J)=Q{J):NEXT J 

120 CLS 

130 INPUT "ENTER NUMBER T0 BE SEARCHED F0R"jX 

140 L=1 1 R= N 

150 P=INT((L+R)/2} 

160 IF X<A(P) THEN 190 
170 IF X=A(P} THEN 230 
180 L = F+1;GOTO 200 
190 RsP-1 

200 IF L< = R THEN 150 
210 F=0 

230 IF POO THEN FRINT "IT IS AT PG3ITX0N"; F i GOTO 250 
240 PRINT "IT IS NOT IN THE LIST" 

250 PRINT "PRESS RETURN" 

260 INPUT E$:GOTO 120 

Random Numbers 

Your VZ300, as you know, comes with an inbuilt function to generate 
random numbers. Actually, the numbers are not really random, as they are 
the resuit of a decision — or decisions — made by the computer, in line with 
an inbuilt program. This program dictates specific actions in response to 
specific situations. Therefore* if you knew the computer's inner program, 
and what it was responding to, you'd be able to predict exactly which 
‘random' number it would select next, 

Fortunately, although the computer chooses each number from a list, and 
then repeats the list when it gets to the end, the List is so long you’d have a 
pretty difficult time trying to work out where the list began agam. One 
popular make of computer, for example, when you wmd it up fully, e an 
produce a random number every L6 milliseconds. If you let it go on 
generating these numbers, it would take 150 days before the sequence 
began to repeat itself. 
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How does your VZ3O0 create its random numbers? 

There are many Yandom-number' algorithms in existence. An early one 
was developed by one of the grandfathers of computers, John von 
Neumami worked out a method of generating random numbers baaed on 
taking a four-figure number (such as 8931), then squaring it (to produce» in 
this case, 79762761), and from that selecting the middle four digits (7627). 
These were used as the first random number, then they were squared 
(68171129) to create the next number in the sequence (1711) and so on. 

Here’s a program to create von Neumann numbers on your VZ30Q, When it 
starts, enter any four-digit number. It will run for a while, then stop, 
expecting a new input. You can stop the program at any time by entering a 
number which is less than 1QG0: 


70 REM VON NEUMANN NUMBERS: 

20 REM ENTER NUMBER BELOW 1000 TO ENB 
30 CLS 

^0 PR1NT:INPUT "ENTER NUMBER";A 
50 IF A<1000 THEN ENB 
60 B$sSTR$(A*A) 

70 A=VAL(MID$(B$ f 4,4)) 

80 PRINT A; 

90 IF A>999 THEN 60 
100 GOTO 40 

As you "11 soon disco ver, this does not produce the world’s most 
satisfactory random numbers. In many cases, the numbers start to repeat 
fairly quickly. 

Now most random number generatore inside microcomputers use a 
formula along the lines of SEED=(ANUMBE E *SE E D *ANOTHE R 
NUMBER) MOD YETANOTHERNUMBER, SEED is then fed back into 
the formula for the next run through. Modular division returns the 
remainder of a division (so 10 MOD 3 is 1) and not ali computers include 
MOD in their vocabulary. However, it is pretty simple to simulate it. 
Here’s a simple program to generate random numbers using an approach 
similar to the ohe which occurs deep in your computer's electronic innards: 


168 


10 REM MODULAR SEEDS 
20 CLS 

30 INPUT "FIRST BIG NUMBER";A 


40 INPUT "5EC0ND BIG NUMBER";B 
50 INPUT "NOW A LITTLE NUMBER";C 
60 INPUT "AND NOW THE SEED";SEED 
70 SEED={{A*SEED+B)/C)-INT({A f SEED+B)/C) 
80 PRINT SEED; 

90 GOTO 70 


The first two numbers (A and B) should be pretty big, and the next two (C 
and SEED) should be relatively small. For a run which continues for a fair 
while without repeating, try 1478392 for A» 5228791 for B, 778 for C and 
469 for SEED. 

How random are the numbers produced by the VZ’s generator? 

It is pretty easy to find out how random the numbers are by writing a 
program which not only generatos the numbers, but also works out their 
distribution: 


10 REM DISTRIBUTION 0F NUMBERS 
20 REM FOR VZ 300 
30 CLS 
40 DIM A C10) 

50 FOR J=1 T0 1000 
60 B= RND(10) 

70 A(B)sA(B)+1 

80 NEXT J 

90 FOR J=7 TO 10 

100 PRINT J;" > A(J)/10; 

110 NEXT J 


As you can see, this program Stores the frequency with which the numbers 
are generated in an array, then prints the frequency out as a pereentage of 
thewhole run. 

I ran the program twenty times, and took an a ver age of the resulta. If the 
random number in my VZ was perfect, and I ran the program for an 
infinite time, each number from one to ten in my s ample would occur 
exactly 10% of the time. As you can see, even with the relatively small 
sample, the output is pretty close to this ideal distribution: 


1 > 10,08 % 

2 > 10,035 % 

3 > 10,245 % 
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4 > 10.12 % 

5 > 9.845 J6 

6 > 9.805 % 

7 > 9.97 % 

8 > 9.859999 % 

9 > 9.984999 % 

10 > 10.055 % 


Try it on your VZ300, and see how the resulta compare with mine, 

Now there may be times, say when creating computer aimnla t-.inna when 
you want skewed random numbers; numbers which are biased in some 
way, rather tban being evenly distributed across the range. This is fairly 
easy to do. If you want, for example, the lower numbers to appear more 
often than the higher ones, ali you have to do is change line 60 of the above 
program to: 


60 B=IHT(HND(0}*RND(0)*10+1) 

I did this, and ran the program fi ve times, and again averaged the results. 
This is what I got: 


1 > 33.1 % 

2 > 18.68 % 

3 > 14.68 % 

4 > 10.06 56 

5 > 7.26 % 

6 > 6.04 56 

7 > 4.7 56 

8 > 3.1 56 

9 > 1.6 56 

10 > .78 i 


How does this work? Simply by the fact that RND(0) produces a number 
between zero and one, and multiplying any such number with another 
similar one produces numbers which tend to be lower (i.e. towards zero) 
than higher. 

John von Neumann, who invented the ‘pick a four-figure number, then 
square it’ method of generating random numbers, also developed a rather 
neat way of working out areas enclosed by an irregular border, based on 
random numbers. His method is ealled the Monte Carlo Method. It works 


on the basis that, if you had a map of an area containing a single continent, 
and you dropped darts on the map randomiy, and then counted how many 
darts feli within the continent on the map, and how many feli outside it T the 
area of the continent would be proportional to the number of darts which 
feli within it, compared to those which feli outside it. By knowing the area 
covered by the whole map, it would be simple to work out an 
approximation to the area of the continent. 

We can use such a method to work out an approximation to PI, Imagine a 
square, with a circle drawn in the square which just touches the sides. 
Now, mentaily divide the square, and the circle, into four. Throw away 
three-quarters of the square, and keep the remaining quarter, which 
contains a quarter circle. 

Now, imagine that you were dropping darts on the square in such a way 
that they had an equal chance of falling anywhere within it. Some would 
land within the quarter circle, and some would land outside it. If the darts 
were dropped in a perfectly random manner, the ratio between those which 
feli within the quarter circle, to those which feli outside it, would be PI 
divided by four. This program ‘drops the darts' for you: 


10 HEM MONTE CARLO PI 
20 HEM F0H VZ 300 
30 CLS 
40 A = 0 : Bs=Q 

45 LPRINT A;ABS{ 3 ,141593-P);T A B C 2 3);P:GOTO 50 
50 G0SGB 120 
60 B= B+D 
70 A= A-f 1 
80 F=4*B/A 

90 PRINT A; ABSC3-U1593-P) ,P 

100 IF 5G0*(INT{A/ 500 ))<>A THEN 50 

110 LPRINT A;ABSC3*141593-P);TAB(23);P:G0T0 50 

120 BsQ 

130 M=RND(0) 

140 Z = RND(0) 

150 IF M*M+Z*Z<1 THEN D=1 
160 RETURN 

You can see, in line 90, that I’ve used 3.141593 as an approximation to PI, 
to check the accuracy of the value of PI produced by the program. The 
program prinfcs out, in line 90, the number of darts you've dropped (A), the 
difference between 3.141593 and the number you T re calculating as an 
approximation to PI (3.141593—P) and, finaljy, l yom' version of PI (P). 
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After ‘dropping* 500 darts* the first time I ran the program* I got a value 
of 3,088 for PI* an error of ammd .0536. This is not too bad, However* I 
didn't think it was good enough, so ran the program under it had dropped 
74*000 daris (patience required here)* and got this output towards the end 
of that run: 


67000 

5.5337 E-03 

3-13606 

67500 

5.53417E-03 

3.13606 

68000 

5.82886E-03 

3.13577 

68500 

5.24306E-03 

3.13635 

69000 

3*97038E-03 

3.13762 

69500 

4.09698E-03 

3.1375 

70000 

3*30782 E- 03 

3.13829 

70500 

3.21054E-03 

3.13838 

71000 

2.94566E-03 

3.13865 

71500 

3.07608E-03 

3.13852 

72000 

2.14911E-03 

3.13944 

72500 

1. 89686 E-O 3 

3.1397 

73000 

2.25O91E-03 

3.13934 

73500 

1.89281E-03 

3.1397 

74000 

2.07996E-03 

3.13951 

74500 

1.8351 1 E-03 

3.13976 


It is very interesting to watch as the program ‘homes in' on the value of PL 

Now that weVe looked at the mysteries of PI* it is time to examine 
computer sorting techniques, The majority of business programs use 
sorts, In fact* according to Jonathan Amsterdam* writing in Byte 
magazine (September, 1985, p. 105)* 90 per cent of ali computer programs 
do some kind of sorting, 

The most basic sorting needs are for a series of strings to be placed in 
alphabetical order* or for numbers to be placed in an ascending or 
descending series. Whether it is names of products in a storeroom* a mail 
Ust to be ordered by postcodes, or a ranking of examinafcion results from 
highest to iowest within a class* similar sorting techniques can be used, 

However, there is a bewildering number of sorting algorithms, and they 
differ wildly in their efficiency. We'll be looking at five different sorting 
techniques in this section, in which the most efficient one works thirfcy 
times faster than the lea st efficient one does, You ’11 probably find it quite 
interesting to run the different sorfcs on your own computer* and time them 
as they sort out lists of your own, The differenee in speed — which will be, 
of course* most noticeable with a long list — is quite amazing. 


Although it makes little practical differenee which sort you use when the 
list to be sorted is short* it becomes increasingly important as the length of 
the list grows. And if you Ve writing a business applications program 
which either sorts a long list from time to time* or sorts short lists 
frequently, it is very important to choose the most efficient sort. 

Speed and Storage 

Tony Guttmann* a lecturer at the University of Newcastle* NSW* in his 
book Programming and Algorithms (Heinemann* 1977; p.146), points out 
that choosing the correct sort for a job often involves a compromise 
between various incompatible requirements, “The two most commonly 
conflicting requirements*” he writea, “are storage space and exeeution 
time/* Some sorts* as we wiU see* demand no additional memory than that 
which holds the original, unsorted data. In the worst case, a second array 
equal in size to that which holds the original data is needed to hold 
elements during a sort. The other sorts lie in between these two extremes. 

In each of the programs here* the list to be sorted is an array filled with 
random numbers* wMch are then sorted into ascending order. The number 
of elements in the Ust can easily be altered* to demonstrate ciearly that the 
efficiency of some sorts declines quite dramaticaUy as the length of the list 
to be sorted increases. 

Bubble Sort 

We’U start with the Bubble Sort: 


10 REM BUBBLE SOFT - A 
20 CLS 

25 INFUT n H0W MANY ITEMS TO BE SORTED"; N 
30 CLSiDIM A(N) 

40 FOR Q=1 TO N:A(Q)=RKD(N): BEXT Q 
45 S0UND 15,3 

50 PRINT "SORT STARTING N0W... n 
60 K= 1 

70 X=A(K):Y= A{K +1) 

80 IF X<Y THEK 140 
90 A( K)=1: A(K +1)=X:TEMP=E-1 
100 IF TEMP = 0 TKEN 140 
110 X = ACTIMP) 

115 Y= A (TEMP+1):IF X<Y THEK 130 
120 A{TEMP} = Y:A(TEMF+1)=X 


130 TEMP=TEMP-1:GOTO 100 

140 K=K+1:IF R<N THEK 70 

150 PRINT "SORT FINISHED:«:SOUND 20,3 

160 FOR J=1 TO N: PRINT A(J),.:NEXT J 


In this, the computer Iooks at the first two elements in the Iist — A(K) and 
A(K+1) — and swaps them over if necessary. Next, the program Iooks at 
elements two and three in the list, and interchanges them if necessary. 
Once it hae got right to the end of the list on the first pass, the bubble sort 
program goes back and does it over and over again, until the list is in order. 
The time a bubble sort takes to order a list is proportional to the square of 
the number of elements to be sorted. My VZ took 46 seconds to sort a list 
of 50 elements. 

Swap Sort 

The Bubble Sort, even though it was siow, did not demand 
meraory to hold the elements of the list as they were sorted. Similarly, the 
Swap Sort does not need extra memory: 


10 REM SWAP SORT - B 
20 CLS 

25 INPUT "HOW MANY ITEMS TO BE SORTED";N 
30 CLS : DIM A ( N) 

40 FOR M=1 TO N:A(M)=KND(N):NEXT M 

50 SOUND 20,3:PRINT "SORT STARTING N0W" 

60 FOR B=1 T0 N-1 

70 FOR C=B+1 T0 N 

80 IF A(B)<=A(C) THEN 100 

90 TEMP=A(B):A{B)=A(C) 

95 A{C)=TEMP 

100 NEXT C:NEXT B 

110 CLS:SOUND 23,2 

115 PRINT "SORT FINISHED:" 

120 FOR J=1 T0 N:PRINT A(J),:NEXT J 


Starting with the first two elements on the list, this sort interchanges 
them if necessary, If they do not need to be swapped over, the program 
Iooks at the next two. If the first two need to be swapped, the swap is 
made, and then the program goes back to the beginning. This occurs until 
it gets to the end of the list. 
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Whereas it took the Bubble Sort 46 seconds to put a list of 50 items in 
order, the Swap took just 23 seconds. When the length of the list to be 
ordered was increased by a factor of three (to 150), the Bubble Sort time 
increased by 93%, while the Swap Sort time increased by around 96%. 
This suggests that while the time it takes the sorts to work naturally 
increases as the length of the list increases, the Swap Sort may degrade to 
a greater extent. Try both programs with lists of 1000, and then more, 
numbers, and see if you can work out at which point — if any — a Bubble 
Sort would become more efficient than a Swap Sort. 

Insertion Sort 

T.ike the first two sorts we’ve looked at, the Insertion Sort does not 
demand additional memory. Whereas the time taken to sort a iist with the 
Swap Sort is related to the number of elements in the list cubed, the time 
the Insertion Sort takes to order a iist is related to the number of items 
squared. 

Here is the listing; 


10 REM INSERTION SORT - C 
20 CLS 

25 INPUT "HOW MANY ITEMS TO BE SORTED";N 
30 CLS:DIM A(N) 

40 FOR Q=1 T0 N:A{Q)=RND(N):NEXT Q 
50 SOUND 15,3: PRINT "SORT STARTING NOW" 
60 FOR K= 2 TO N 
70 J=K-1:L = A(K) 

80 IF L>= A(J) THEN 110 
90 A(K J-t-1) = A ( J) 

100 J=J-1:IF J>0 THEN 80 
110 A(J+1)=L t NEXT K 

120 SOUND 16,3:PRINT "SORT FINISHED" 

130 FOR J=1 TO N:PRINT A(J),:NEXT J 


It took 4Va seconds to sort 50 elements, and 12 seconds to sort 100, 

Shell Sort 

Now we’re moving into the Brands Hatch area of sorts, where things reaily 
start zipping along. The Shell Sort, although it needs a little extra storage 
(in this case, an array containing 10 elements), is very fast. 


According to D E Knuth, in his book The Art of Computer Programming 
(Addison- Wesley, 1978) it works by filling the elements of the S array with 
a set of increasing integera starting with S(l)=l. "The best set is not 
known,” he writes, "but the sequence ’S(J+1 )=S{J) *3+1' is good." Once 
this is done, the program finds the smallest value P auch that S(P+2)V=N 
(where N is an element in the list to be sorted). Then, for each S=S(K), 
where K is a Ioop control variable in a FOR/NEXT loop going down from P 
to 1 take each value of J from S+l to N, and insert A(J) in its proper 
position. 


10 REM SHELL SORT - D 
15 CLS 

20 INPUT "HOW MANY ITEMS TO BE SORTED"; N 
30 CLSiDIM A( N),S(10) 

40 FOR M=1 TO N:A(M)=RNDEN);NEXT M 
50 PRIWT "SORT BEGINNING":SOUND 19,3 
60 S{1> = 1 

65 FOR J=1 TO 9:S(J+1)=S{J)*3+1jNEXT J 
70 P = 0 
80 P=P+1 

90 IF S(P+2)<N THEN 80 

100 FOR K=P TO 1 STEP-1:S=S(K) 

110 FOR J=S+1 TO N 
115 L= J-S:A= A(J} 

120 IF A> = A(L) THEN 140 

130 A(L+S)=A(L): L= L- $: IF L>0 THEN 120 

140 A{ L+S)=A:NEXT J 

150 IF K>1 THEN FOR Q=1 TO N:PRINT A(Q).;NEXT Q 
160 PRINT;PRINT:NEXT K 
180 SOUND 17,3 

185 PRINT "FINAL SORTED LIST" 

190 FOR J=1 T0 N :PRINT A(J),:NEXT J 


Complex as that 'explanatiori’ may seein, you don’t need to be able to make 
sense of it in order to use the Shell Sort. 

Sort by Count 

The final sort we will examine, and the one which puts all the others to 
shame in terms of speed of execution is the Sort by Count, which needs an 
array in addition to the one which holds the original data. The second array 
(C in our program) contains the same number of elements as the value of 
176 


the largest element in the data (so if the nnmbers in the original data were 
6,84 and 17, C wouldneed84 elements); 


10 REM SORT BY COUNT - E 
20 CLS 

25 INPUT "HOW MANY ITEMS T0 BE SORTED";N 
30 CLS: DIM AU) ,Q(N) 

40 INPUT «HIGHEST VALUE IN DATA";M 
50 CLS:DIM C(M) 

60 FOR Q=1 TO N:A(Q)=RND(M):NEXT Q 

70 PRINT "SORT STARTING NOtf tt :SOUND 12,3 

80 FOR J=1 TO M:C(J)=0:NEXT J 

90 FOR J=1 TO N:C{A(J))=C(A{J))+11NEXT J 

100 FOR T0 M:C(J)=C{J)+C(J~1):NEXT J 

110 FOR K=N T0 1 STEP-1 

120 TEMP = A(K) 

130 J=C(TEMF):Q(J)=TEMP:C(TEMP)=J-1 

140 NEXT K 

150 CLS:SOUND 14,3 

160 PRINT "SORT FINISHED" 

170 FOR J*1 T0 N:PRINT Q(J) t :NEXT J 

The cost of this storage overhead is well worth paying, as the time to sort a 
list of N elements is directly related to N* Instead of finding the time taken 
increases as the square, or cube of the number of elements in the list, the 
Sort by Count time increases only arithmetically with the number of 
elements (so the time taken to sort a Est of 100 elements should be exactly 
double the time it takes to sort 50 elements). 


The program works by setting every element of the C array to zero. Then, 
for each element of array A, the program increments its corresponding 
counter C(A(J)), This means that C(J) is now set to the number of elements 
in the original Est of data equal to J. Mext, the program counts from 2 up 
to M (where M is, you'E recall, the value of the largest number in the 
original Est), adding each C(J) to C(J*T), as youII see in line 100, This 
makes each C(J) the number of elements less than or equal to J, 

Finaliy, using a loop counting backwards from N (the number of items in 
our original Est) to 1 (see line 110), each element A(K) is copied (holding the 
value temporariiy in the variable TEMP) to Q(C(A(K))) and C(A(K)) is 
decremented. 

At the end of aE this shenanigans, we have a sorted Est. 


Section Six 
Disk Drives and 
Other Peripherals 


The word ‘peripheral’ is used to describe anything which you connect up to 
your VZ300, whether it is a printer, a joystick, or a disk drive. In this 
section of the book, we’ll iook at the peripherals you can get for your 
VZ300, and also examine the commands used for controlling Hialce 

Joysticks 

The joysticks (DSB catalogue product number X-7315) come as a pair. 
They are connected up as shown in the diagram. 


The fast response joysticks offeT you eight-direction flexibility and both an 
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ARM and FIRE button, The joystick interface allows your VZ300 to 
support the joysticks. 

Make sure, when connecting any peripherals to your computer, that you 
have disconnected the power. 

To install the joysticks, you turn off the power, and then remove the cover 
marked ‘peripheral’ at the back of the VZ300. You then plug the joystick 
interface into the peripheral socket slowly and smoothly. 

Next, you tum on the VZ300. If you have connected the joysticks 
correctly, the RE ADY message will show as normal. If it doesn’t come up 
on the screen, you simply go through the procedure again. 

You can control your BASIC programs using the joysticks. Here’s a 


10 CLS 

20 A s(INT(43) AND 31) 

30 IF A=30 THEN PRINT "UP" 

40 IF A=29 THEN PRINT "DOMN" 

50 IF A= 27 THEN PRINT "LEFT" 

60 IF A=23 THEN PRINT "RIGHT" 

70 GOTO 20 

This program Controls the left joystick. You press control/break to stop 
the program. 

You can access the right or left joysticks in assembly language, by using 
the matrix shown in the illustration. 


f 

t 



FIRE 


► RIGHT JOYSTICK 

| LEFT JOYSTICK 





ARM 

1 

4 

t 



FIRE 


i ——- 




ARM 


! -- 







00 01 D2 D3 D4 
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You use the IN instruction to read the joystick whose address rauges from 
hexadecimal 20 to 2F. Ali you ha ve to do is write a program to scan the 
address lines, and check which data bit has become zero. 

Adding Extra Memory 

From time to time you'11 come across programs which demand more 
memory than is provided with the Standard VZ30G, You may also find, as 
you become more experienced with programming your computer, that you 
want to write longer and more complex programs, and additional memoiy 
will be vital at this stage, 

The 16K memory expansion model (cataiogue number X-7306) simply 
plugs into the memory expansion aperture at the back of the computer, 
Make sure, of course* that you ha ve the power off before plugging the 
memory pack in place as illustra ted. 



To check that the extra memory is correctly inserted, you type in PRINT 
PEEK (30897) and press the RETURN key, which should give you an 
answer of 255. Then, if you tyupe in PRINT PEEK (30898) and press 
RETURN, youll get 247, 

Connecting a Printer 

The Printer Interface (cataiogue number X-7320) allows your VZ300 to 
support the Standard Centronics type printers, The printer interface 
module lugs into the peripheral aperture at the back of the computer, 

You use the command LLIST to get a program Iisting printed out on the 
screen, and LPRINT to print a specific line, These can be used within 
programs, as can the third command, COPY, which is used to get a copy of 
everything on the screen at any time. 
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Although COPY wiU cause the printer to print out the text on the screen, 
the graphics and inverse characters which you can get on the VZ30Q can 
only be LLISTed, LPRINTed or COPYed if your printer is the DSE GP- 
100 (cataiogue X-3250) or an SHA GP-100A, 

Adding Disks to your VZ300 

The VZ300 Floppy Disk Controller (cataiogue number X-7304) is needed to 
allow you to connect one or two disk drives to your VZ300. The controller 
plugs into the back of your VZ30O, 



The controller communicates with the disk drive or drives via a 20-pin 
coimector which provides ali mput/output signals. 


The disk drive itself (cataiogue number X-7302) comes with a separato 
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power supply. You need to plug that juto the power, and plug the lead from 
the end of the disk controller into the drive, using the socket on the 
controller marked DRIVE 1 for the first drive, and'DRIVE 2 for the 
second one. You also need a 16K or 64K memory expansion unit, which 
plugs into the RAM expansion slot on the disk controller. 



The drives use Standard 5.25 single-sided floppy disks, and each disk can 
hold 80 K of programs. 

When you turn the disk drive on, if ali is well, you’Il get a slightly different 
RE ADY mesa age from the one you’re used to: 

VIDEO TECHNOLOGY 
DOS BASIC V 1.2 

READY 


DOS stands for Disk Operating System. 


To use the drive, you first must put a disk in place. You open the disk drive 
door, and insert the disk so that the label goes in last. Then, you ‘lock’ the 
door by turning the little handle to that it points downwards. 






the disk drive door is 
OPEN ED 


V 


the disk drive door is 
CLOSED 


p. 
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Before you can use a disk, it must be initiaHsed. You do this with the 
command INIT. When you type this in, and press RETURN, you'11 see the 
red light on the disk drive come on, Never try to remove a disk while the 
red light is on, After sonae whirring noises, which will continue for quite a 
while, the light will go out, and the disk will be initialised, Note that the 
initialisation process wipes euerything on a disk, so make sure you use this 
command with care. 



To find out what is on a disk, you use the directory command, which is 
DIR, You simply type it in, and press RE TURN, and a list of al the files 
on your disk will come up on the screem 

To save aprogram to disk, you simply type in SA VE “NAME". “NAME" 
can be up to eight characters long. To load a program, you use the same 
approach, with the command LOAD “NAME*\ Note that the “NAME” 
must be used for both loading and saving, and the quote marks must be 
present on each side of the name. 

To run a program, you can either load it in, and then type in RUN, and 
press RETURN, or you can enter RUN “NAME" and press RETURN. 

The STATUS command is used to find out how much space you Ve got left 
on a particular disk. You simply type in the word STAT and press 
RETURN. The drive will whirr for a few seconds, and a message like the 
following will appear: 


624 R1CORDS FREE 
78.OK B YTES FREE 
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This report indicates that there are 624 ‘recorda' (each of 128 bytes), or 
78K, of space stili on the disk. 

If you have two disk drives connected, you swap between them by using 
the commands DEIVE 1 and DRIVE 2, Qnce you Ve typed one of these 
commands in, all disk commands will go to the indicated disk drive. 

The command REN is used to remme a file on a disk. If you Ve saved a 
program under the name “GOODGAME” and you want to change the 
name to "AMAZING”, you just type in REN "GOODGAME”, 
^AMAZING” and then press RETURN. The drive will make its 
customary noises, and then when you next try a DIR command, you'11 see 
the file is listed under the second nanae. 

You canV save a program using a name which has already been used on 
that disk. Therefore, if you have an updated version of a program which 
you wish to save, or you simply want to get rid of a program from your 
disk, you need the ERA command, which stands for erase, You just type in 
ERA “PROGNAME” and then program calied "FROGNAME” will be 
wiped. 
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Appendix 
Reference Section 

Finally, in this appendix, we have video display worksheets for Mode O 
and Mode 1, the VZ's ASCII cade table, and the computer's character 
codes, 

VIDEO DISPLAY WORKSHEET (MODE O) 



31 

63 

95 

127 

159 

191 

223 

255 

287 

319 

351 

333 

415 

447 

479 

5U 
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VIDEO DISPLAY WORKSHEET (MODE 1) 
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ASCH Code Table 


ASCII 

CODE 


59 

60 
61 


62 

63 


CHARACTER 

ASCII 

CHARACTER 

(Space) 

64 

@ (at sign) 

t (exclamation point) 6B 

A 

11 (quote) 

66 

8 

* (number or pound 
sign) 

67 

C 

$ 

68 

D 

% (percentj 

69 

E 

8t (ampersand) 

70 

F 

' (apostrophe) 

71 

G 

( (open parenthesis) 

72 

H 

) (close parenthesis) 

73 

1 

# {aster isk) 

74 

J 

+ {plus) 

75 

K 

, (comma) 

76 

U 

- (minus) 

77 

M 

. (period) 

78 

N 

/ (slant) 

79 

0 

0 

80 

P 

1 

81 

Q 

2 

82 

R 

3 

83 

S 

4 

84 

T 

5 

85 

U 

6 

86 

V 

7 

87 

w 

8 

88 

X 

9 

89 

Y 

: (colon) 

90 

Z 

; [semico Ion) 

91 

( (open squate 
bracket) 

< (lessthan) 

92 

Mback slash) 

285 (equaEs) 

93 

] (close square 
bracket) 

> (greatef than) 

94 

t (uparrow) 

? (question mark) 

96 

■+- (back arrow) 






























































































































































































Character Codes 


Relative 


NORMA L 


Offset \ 

* 

16 

32 

46 

64 

80 

96 

112 

12S 144 


© 

P 


9 

4» 

P 


9 

□ □ 

+1 

A 

Q 

1 

1 

A 

O 

1 

T 

B C 

+2 

e 

R 


2 

fl 

R 

» 

2 

a a 

+3 

c 

S 

# 

3 

C 

S 

# 

3 

P y 

+4 

D 

T 

$ 

4 

0 

T 

$ 

4 

a a 

+S 

E 

U 

% 

5 

E 

U 

* 

S 

El DI 

+6 

F 

V 

& 

£ 

F 

V 


6 

B 1 

+7 

G 

w 

■ 

7 

G 

w 

' 

7 

ei a 

+8 

H 

X 

( 

8 

H 

X 

t 

a 

C EI 

+9 

1 

V 

1 

9 

1 

V 

J 

9 

15 S 

+ 10 

1 

z 

* 


J 

z 

• 

i 

d D 

+ 11 

K 

l 

+ 

: 

K 

I 

+ 

j 

G E 

+ 12 

L 

\ 

, 

< 

L 

\ 


< 

a h 

+13 

M 

1 

- 

- 

M 

1 

— 

» 

a a 

+14 

N 

A 


> 

N 

ft 


> 

m n 

+1& 

O 

4- 

/ 

7 

O 

+-■ 

/ 

7 

■ M 


192 20 8 224 240 


INVERSE 


a 6 B s 

B-BBB 

0 H CJ H 

nana 
(B HJ BS SB 
I BBS 

C B B E 

DBcS 

B B B B 

ssss 

S5SS 


GR6EN 

SF - 

SUFF 

YCLLOW 

CN - 

CVAN 

8 LUE 

M - 

magenta 

8 EO 

0 - 

0RANCE 
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NOTES 










Here it is. The ultimate programmlng resource for your VZ3000. 
A bumper collection of ideas, tricks, techniques and programs 
for you and your machine. 

The major sections include: 

EXPLORING ARTIFICIAL INTELLIGENCE — detailed 
history, seven major programs to demonstrate AI 
including BLOCKWORLD and X-SPURT. 

GRAPHICS AND SOUND COMPANION - a generous 
selection of dramatic sound and graphics demonstration 
programs, including 3-D PR1NTER PLOTTER and THE VZ 
SYNTHESIZER. 

PRACTICAL PROGRAMS — Get your VZ300 to eam its 
keep with our useful MINICALC program. 

FORTH — Now you can learn and run the computer 
language FORTH on your VZ300, without having to buy an 
extra language; just type in the program and follow the 
instructions, and your VZ300 will be running in FORTH. 

SORTS AND SEARCHES — A number of routines to allow 
you to test and time the searching and sorting technique 
for yourself. 

PERIPHERALS — We explore the add-ons you can buy for 
your VZ300, from joysticks to disk drives, and show ho vi 
they work. 

THE AMAZING VZ300 OMNIBUS is designed to give you and 
your VZ300 months and months of ideas and entertainment. 


